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La pratique de l'Apple II 
tome | 

par Nicole Bréaud-Pouliquen 

Cet ouvrage présente les spécificités 
du Basic Applesoft à partir d'une 
description du matériel et du logiciel 
du système Apple. Les techniques 
de programmation, de composition 
et d'animation de dessins et graphi- 
ques colorés y sont expliquées à l'aide 
d'exemples illustratifs et d'exercices 
résolus. 


128 pages - 85,00 FF 


La pratique de l’Apple II 
tome 2 

par Nicole Bréaud-Pouliquen 

Ce second volume de la pratique de 
l'Apple Il est consacré au système 
d'exploitation disque, à la gestion 
des fichiers, à l'impression et aux 
imprimantes, à la carte horloge 
Appleclock. De nombreux exemples 
de programmes illustrent les fonc- 
tions et les commandes décrites 


120 pages - 85,00 FF 


La pratique de l’Apple II 
tome 3 

par Nicole Bréaud-Pouliquen 

et Daniel-Jean David 

Ce volume est une initiation à la 
programmation en langage machine 
6502 dont le jeu d'instructions est 
expliqué et utilisé. L'assembleur 
symbolique et ses logiciels connexes 
y sont décrits. L'interaction avec le 
Basic et avec le systeme y est etudiee 


176 pages - 95,00 FF 


Clefs pour l'Apple 11 

par Nicole Breaud-Pouliquen 

Un livre de référence, dans la collec- 
tion Mémentos”, destine à se trou- 
ver en permanence à cote de l'ordi- 
nateur Apple Il. Son but est l'accès 
rapide à l'information : syntaxe des 
commandes, codes caracteres, mes- 
sages d'erreurs, codes machine, 
adresses utiles. || comporte égale- 
ment un recueil de 25 “trucs” utiles, 
les “Comment... ?" 


144 pages - 105,00 FF 


L’Apple et ses fichiers 

par Jacques Boisgontier 

Pour apprendre progressivement la 
programmation des applications uti- 
lisant les fichiers, l'ouvrage com- 
mence par une présentation concise 
et illustrée des commandes du Sys- 
tème d'Exploitation Disque et des 
instructions du Basic Applesoft. Les 
instructions des fichiers séquentiels 
et à acces direct sont ensuite décri- 
tes ainsi que leur utilisation. Des 
méthodes pratiques, souvent mal 
connues, montrent comment utiliser 
au mieux des fichiers à acces direct 
accès indexé, liste inverse. Une 
vingtaine de programmes illustrent 
l'utilisation de ces techniques 


le livre : 176 pages - 95,00 FF 
La disquette d'accompagne- 
ment : 210,00 FF 

Pour Apple Il, Il plus, lle - Dos 33 - 
version 48 K ou plus. 


Multiplan pour Apple Il plus 
et //e 

par Hervé Thiriez 

Multiplan est un progiciel qui per- 
met de gérer plusieurs tableaux 
simultanément; cet ouvrage sera 
pour les possesseurs d'ordinateurs 
Apple Il Plus ou //e un véritable guide 
d'utilisation de Multiplan grâce à des 
exemples progressifs et à de nom- 
breux cas d'application (gestion de 
portefeuilles, de copropriété, feuille 
de paie, impôts, tableaux de bord, 
etc.). 

Le livre : 216 pages - 105,00 FF 
La disquette d’accompagne- 
ment : 210,00 FF 

Pour Apple Il plus, lle - Dos 3.3 - 
version 64 K ou plus (Disquetre 
maitresse Multiplan indispens: 


Visicalc sur Apple 

par Hervé Thiriez 

Après une présentation progressive 
du modele Visicalc, l'ouvrage étudie 
de nombreux cas d'application 
feuille d'impôt, gestion de copro- 
priété, paye, facturation... permet- 
tant d'introduire les différentes 
instructions et astuces d'utilisation 
Le livre :176 pages - 95,00 FF 
La disquette d'accompagne- 
ment : 210,00 FF 

Pour Apple Il, Il plus, Ile - Dos 3.3 - 
version 48 K ou plus (Disquette 
maitresse Visicalc indispensable) 


Pascal UCSD sur Apple II 
par Jacques Rouault et Patrice Girard 
L'ordinateur Apple Il, le langage 
Pascal et le systeme d'exploitation 
UCSD forment à eux seuls le plus 
petit ensemble de micro-informati- 
que professionnelle. Une premiere 
partie de cet ouvrage est consacrée 
à l'étude de ces trois éléments. Sont 
ensuite abordées les programmes de 
mise en route. Enfin les types et ins- 
tructions Pascal UCSD sont étudiés 
en detail, ce qui permettra au lecteur 
de se rendre compte de la richesse 
mais aussi de la facilité d'emploi du 
Pascal 


232 pages - 120,00 FF 


Gestion de fichiers 

et de périphériques 

pour Apple Il / Pascal 

par Hervé Haut 

Ce livre propose un moyen rapide 
et facile pour gérer les fichiers et les 
périphériques sur Apple. De la ges- 
tion de bibliotheque à l'utilisation 
des périphériques, l'auteur propose 
un ensemble de programmes utili- 
taires, écrits en Pascal. Un expose 
des techniques les plus élaborées 
permettra d'atteindre le niveau suf- 
fisant pour utiliser les méthodes de 
programmation mises en œuvre 


176 pages - 100,00 FF 


Les bases de données 


sur Apple Il 

par Michel Keller 

L'objet de cet ouvrage est d'aider le 
lecteur à faire un choix parmi les 
nombreux logiciels existants sur 
Apple. Quatre de ces logiciels sont 
sélectionnés ici : PFS et PFS/Report 
- DB Master - CX BASE 200 - DBASE 
I. Pour chacun on trouve une des- 
cription détaillée du logiciel lui-même 
ete ses procédures de mise en route, 
de création de fichier, de saisie des 
données, de maintenance et d'édi- 
tion. L'auteur termine cette étude 
par l'exposé des avantages et des 
inconvénients inhérents à chaque 
logiciel 


144 pages - 90,00 FF 


Microbook : base de 
données pour Apple Il 

par Ted Lewis 

Microbook est un système de ges- 
tion de données et un outil de 
développement de programmes 
conçu pour transformer l'Apple Il en 


un outil de classement de fichiers, 
de collecte et de recherche d'infor- 
mations, et de traitement de don- 
nées. C'est un ensemble de pro- 
grammes écrits en Pascal qui fait de 
l'ordinateur un véritable biblio- 
thecaire. 

Les emplois de Microbook sont 
multiples : il peut être utilisé pour 
quasiment toutes les applications où 
le stockage et la recherche de don- 
nées est importante. Les program- 
mes étant très longs, il est recom- 
mandé d'acheter également la dis- 
quette d'accompagnement, proposée 
en deux versions : l'une compilée, 
l'autre code source 


Le livre : 248 pages - 145,00 FF 


LES DISQUETTES 
D'ACCOMPAGNEMENT 
Microbook : 
pour Apple Il 
par Ted Lewis 
volume MICRO 
Apple Il, Il plus, //e et //c avec systeme 
Pascal disquette simple face, compi- 
lée, donc non modifiable 


Prix : 210,00 FF 


base de données 


Microbook : base de données 
pour Apple Il 

bar Ted Lewis 

volume SOURCE et volume UNIT : 
Apple Il, Il plus, //e et //c, avec sys- 
tème Pascal, disquette 2 faces enre- 
gistrées 


Prix : 310,00 FF 


Le systeme Pascal ainsi que les consi- 
gnes d'utilisation des programmes 
contenus dans le livre sont indispen- 
sables. Cette disquette existe en 
deux versions : l’une, double 
face, destinée aux passionnes 
de la programmation en Pascal, 
qui pourront directement pro- 
grammer dans ce langage, et 
developper et étendre à leur 
gre les facultes du systeme. La 
seconde, compilée, simple face, 
destinée aux personnes qui ne 
connaissent pas la programma- 
tion en Pascal ou qui n'ont pas 
le temps de programmer elles- 
mêmes, et qui désirent utiliser 
directement les multiples pos- 
sibilités de Microbook. 

Tous les programmes proposés dans 
le livre sont présents dans chacune 
des disquettes, exceptés les ordres 
pour imprimante, 
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Editorial 


L'environnement Apple est en évolution constante : nous nous sommes à peine habitués au //c, au 
Macintosh et au Mac 512 Ko que l'on voit poindre à l'horizon le fameux Apple //x et la ‘norme //c”! 

En effet, comme vous pourrez le voir dans la rubrique Micro-Informations, l'intention d'Apple est d'éta- 
blir le //c comme norme de la famille 6502, avec un modèle haut de gamme, le //x. 


Les possesseurs de //c ont une occasion de se réjouir : des essais systématiques réalisés à Pom's nous 
ont montré que tout ce qui à été publié, depuis le numéro 1, fonctionne sur le //c. En ce qui concerne 
les programmes écrits en Pascal UCSD, il est bon de vérifer toutefois. avant toute utilisation, que votre 
version du système n'est pas trop ancienne pour “booter” correctement sur le //c (reconnaissance des 
80 colonnes). 


Malgré des retards généraux par rapport aux dates de sortie annoncées au Sicob, nous commençons à 
voir apparaître de nombreux logiciels pour le Macintosh, avec un bon pourcentage de produits français, 
dont certains n'ont rien à envier aux créations américaines. Par contre. l'arrivée des périphériques de 
toutes sortes n'est pas particulièrement rapide. 


Si vous possédez uniquement un Macintosh, voici quelques précisions concernant les abonnements à 
Pom's. Seul l'abonnement sans disquette peut vous intéresser, puisque les disquettes comprises dans les 
abonnements sont destinées aux Apples Il et //. Il existe par ailleurs des disquettes d'accompagnement 
Macintosh, vendues séparément et identifiées comme telles dans les bons de commande. 

La disquette Mac No 1 est désormais complète. Elle comprend tous les programmes originaux publiés 
dans les numéros 14 - 15 - 16, plusieurs polices de caractères (Cairo, Los Angeles, Mos Eisley, Manhat- 
tan, Hollywood), Copy Disk avec un seul drive et le programme ‘Localizer”! 

La disquette No 2, qui s'ajoutera au catalogue Mac, commencera donc à partir du Pom's 17. 


Vos contributions concernant le Macintosh sont, malheureusement. encore trop peu nombreuses. Nous 
les recevrons et testerons avec plaisir. 

A ce propos, et pour allécher les intéressés, signalons que les capacités du nouveau Mac 512 Ko sont 
plus en rapport avec les performances du processeur 68000 que celles de son petit frère. Il permet, par 
exemple, de disposer de quelques 389 Ko avec le Basic et de constituer. si le coeur vous en dit des 
tableaux de variables de plus de 64 Ko... 


Pour en revenir à la ‘ligne 6502”, certains lecteurs semblent redouter que nous délaissions l'Apple II 
pour le //e. Bien heureusement il n'en est rien. Nous nous efforçons toujours de publier des program- 
mes compatibles Apple Il - /’e ou //c (mis à part les problèmes éventuels liés à l'utilisation des touches 
particulières du clavier //e - /c). L'Apple II est toujours d'actualité : n'ayez crainte nous ne vous laisse- 
rons pas tomber ! 


Hervé Thiriez 


Photo de couverture : “Mise en œuvre du 68000" aux éditions Sybex 
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Les informations sur ProDOS 
commencent à devenir abondantes, 
ainsi d’ailleurs que les lettres des lec- 
teurs de Pom’s demandant plus d'’in- 
formation sur le nouveau système 
d'exploitation de l'Apple II. 


Je vous propose donc aujourd’hui de 
compléter et détailler mon article 
paru dans le Pom's 13. Trois princi- 
paux sujets seront abordés, les indi- 
cations fournies par la lecture de l’ar- 
ticle précédent sur ProDOS étant 
supposées connues : 

1-divers compléments, donnés sans 
ordre prémédité, concernant les 
questions les plus fréquentes; 

2-un programme de conversion de fi- 
chiers à accès direct DOS 3.3 / 
ProDOS,; 

3-la méthode d’initialisation des utili- 
taires système tournant dans un envi- 
ronnement ProDOS (il ne s’agit plus, 
comme par le passé, de créer des 
programmes égoïstes s’ignorant mu- 
tuellement, avec les problèmes de 
contention mémoire qui en résul- 
tent). 


La documentation 
ProDOS 


Apple diffuse quatre principaux ma- 
nuels sur ProDOS : 


1. Le ”’ProDOS Users Manual” ex- 
plique l’utilisation des différents utili- 
taires livrés avec la disquette système 
ProDOS (Filer, Convert, etc.). 

2. “Basic Programming with 
ProDOS”" est le manuel de référence 
des commandes accessibles sous Ap- 
plesoft, telles que CATALOG, READ 
ou CREATE. De nombreux lecteurs 
nous ont écrit pour nous signaler 
qu'ils n'avaient pas reçu ce manuel, 
pourtant nécessaire à l'utilisation de 
ProDOS (et tout particulièrement in- 
dispensable aux nouveaux utilisateurs 
de l'Apple //c qui ignorent tout du 
DOS 3.3). Ce manuel est apparem- 
ment commercialisé séparément, 
avec la disquette contenant APA 
(Applesoft Programmer’ s Assistant) 
qui offre des utilitaires de renuméro- 
tation et fusion de programmes. 

3. "The ProDOS Technical Refe- 
rence Manual” est destiné aux pro- 
grammeurs en assembleur désirant 
créer des modules appelant directe- 
ment ProDOS. Bien entendu, le 
fonctionnement interne de ProDOS 
n'est pas expliqué; seuls les points 
d'entrée, et la manière de les appe- 
ler, sont étudiés. 

4. Enfin, ’ProDOS Assembler Tools” 
explique le fonctionnement de l'as- 
sembleur 6502 (commercialisé sépa- 
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rément), ainsi que celui de l'utilitaire 
de mise au point Bugbyter (voir 
Pom's 13). 


Ces manuels sont naturellement dis- 
ponibles en français. On peut s’éton- 
ner que seul le premier soit livré avec 
ProDOS. En fait, comme cela avait 
été auparavant le cas avec le Dos 
Tool-Kit, Apple préfère proposer des 
produits complémentaires plutôt que 
de les fournir systématiquement. 


Démarrage d’une 
disquette ProDOS 


Voici, donné plus en détail, le méca- 
nisme du ”’boot” sous ProDOS : 


1. Lors du “boot”, lancé par l’allu- 
mage de l'Apple où des commandes 
telles que PR#6, 6<Ctri-P> ou 
C600G, le processeur 6502 
commence par exécuter la routine 
contenue dans la ROM de la carte 
du contrôleur d'interface (s’il s’agit 
du slot 6, elle est située en $C600 - 
$C6FF). Cette routine ignore tout de 
la disquette qu’elle va charger: il peut 
s'agir d’une disquette DOS 3.3, 
ProDOS, Pascal, CP/M, Forth ou 
même d'un programme protégé. Elle 
charge un ou plusieurs secteurs de la 
piste 0; pour ProDOS, les quatre 
premiers secteurs, c'est-à-dire les 
deux premiers blocs, sont placés en 
mémoire à partir de l'adresse $0800. 
Enfin, le processeur 6502 effectue un 
saut en $0801. 


2. Premier travail à effectuer: ‘Où 
suis-je ?”. Le programme commen- 
çant en $0801, extrait d’une dis- 
quette ProDOS, peut avoir été 
chargé par un Apple II ou un Apple 
//!. Après examen des ROMs du mo- 
niteur, celui-ci charge alors à 
l'adresse $2000, soit le fichier 
ProDOS pour un Apple II, soit le fi- 
chier SOS pour un Apple ///. S'il ne 
peut trouver le fichier recherché, le 
programme s'arrête avec un message 
d'erreur. A l'avenir, nous ne nous 
occuperons que de ProDOS sur un 
Apple Il. 


3. Le fichier ProDOS contient le 
ML.I. (Machine Language Interface) 
de ProDOS, c'est-à-dire son noyau 
(ou Kernel). A l’origine du dévelop- 
pement de ProDOS, celui-ci devait 
pouvoir fonctionner sur un Apple II 
de 48k en se plaçant sous l'adresse 
$C000, ainsi que sur un //e de 64k 
en se plaçant sur la carte langage. 


Quelles qu’en soient les raisons, une 


seule version sur carte langage a été 
commercialisée, et cette troisième 
étape reloge donc ProDOS sur l’ex- 


Alexandre Avrane 


tension de 16k et place HIMEM 
(l'adresse de la plus haute mémoire 
disponible) à $BFO0. Petite digres- 
sion avant de poursuivre : il doit être 
possible de placer ProDOS sur une 
extension mémoire située ailleurs que 
sur le slot 0 (cela permettrait l’utilisa- 
tion du Basic Integer sous ProDOS). 
Si un lecteur a réalisé une telle adap- 
tation. 


4. ProDOS mis en place, il faut 
continuer le “boot”. Le MLI va donc 
charger et exécuter le premier fichier 
qu'il trouve sur le catalogue principal 
de la disquette dont le nom est de la 
forme XXX.SYSTEM. Dans la majo- 
rité des cas, il s'agit de 
BASIC.SYSTEM qui permet l'inter- 
face entre un programme Applesoft 
et ProDOS. Un autre programme qui 
répond à cette convention peut être 
appelé, par exemple un programme 
professionnel de traitement de texte 
en langage machine. Si aucun fichier 
correct n'est trouvé, on s'arrête là 
avec un message d'erreur. 


5. Tout fichier système se charge à 
l'adresse $2000 et doit assurer lui- 
même son transfert à une adresse 
définitive, dépendant de la position 
précédente de HIMEM. Ainsi le 
BASIC.SYSTEM se reloge à partir de 
l'adresse $9600 et fixe HIMEM à 
cette valeur. 


6. S'il s'agit de BASIC.SYSTEM, il 
recherche, toujours sur le catalogue 
principal, un fichier s'appelant STAR- 
TUP. Une fois trouvé, celui-ci est 
chargé et exécuté, quel que soit son 
type  (Applesoft, assembleur ou 
EXEC). 


Voilà qui achève le boot” d’une dis- 
quette ProDOS; il faut retenir princi- 
palement que l'ordre des fichiers sys- 
tème sur le catalogue principal est 
d'importahce capitale. 

Petite parenthèse avant de poursui- 
vre : il serait bon de pouvoir formater 
une disquette ProDOS sans devoir 
obligatoirement utiliser l'utilitaire sys- 
tème Filer. Si un lecteur a réussi à 
séparer la routine de formatage de 
l'ensemble du programme, qu’il nous 
fasse signe. 


Compléments sur les 
commandes ProDOS 


Tout d’abord une petite rectification 
par rapport à l’article de Pom's 13: 
la commande CATALOG fournit un 
affichage sur 80 colonnes, et CAT 
sur 40 colonnes, et non l'inverse. 


Voici, dans un désordre savamment 
dosé, quelques compléments : 


D RSR RE RE. 
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— CHAIN permet, comme RUN, 
l'utilisation du paramètre (@ pour dé- 
signer le numéro de la première ligne 
d'exécution. Attention: un tableau 
défini dans le premier programme ne 
peut être redimensionné dans le se- 
cond. 


— EXEC comporte le paramètre F 
(field) permettant de spécifier le nu- 
méro de champ initial de l'exécution. 
Il remplace le paramètre R (record) 
du DOS, fort peu utilisé d’ailleurs. 


— BLOAD et BRUN comportent les 
paramètres B, E et L : B (beginning), 
E (end) ou L (length) permettent de 
choisir le chargement d'une portion 
du fichier, au lieu de son intégralité 
(l'utilisation de E ou L est exclusive). 


— BLOAD et BSAVE peuvent char- 
ger ou sauvegarder un fichier de type 
non-binaire, si on utilise le paramètre 
T (type). Ce même paramètre est uti- 
lisable par OPEN et APPEND pour 
ouvrir un fichier non-texte. De plus le 
paramètre L de BSAVE est étendu 
jusqu'à $FFFF. 

— READ et WRITE peuvent utiliser 
les paramètres F (field) et B (byte) 
pour débuter leur action plus loin 
que la position courante. Cette ex- 
tension rend inutile la commande 
APPEND qui est néanmoins conser- 
vée pour préserver la compatibilité 
avec les programmes écrits pour le 
DOS. 


— Les routines en assembleur spéci- 
fiées par les commandes IN# 
A$2000 ou PR# A$300, qui inter- 
ceptent les entrées/sorties vers un slot 
donné, doivent commencer par l’ins- 
truction 6502 CLD (CLear Decimal), 
afin de permettre à ProDOS de véri- 
fier leur existence: il s'agit d'un 
contrôle supplémentaire de sécurité 
qui évitera certains blocages clavier / 
écran. 


— APPEND peut être utilisé désor- 
mais dans un fichier à accès direct. 


Malgré son allocation dynamique de 
l'espace disque, ProDOS possède la 
même limitation que le DOS 3.3: 
tout fichier re-sauvé avec une taille 
inférieure à sa taille initiale conserve 
l'intégralité de ses blocs. Il sera donc 
encore nécessaire d'effectuer réguliè- 
rement un test de compression sur 
les fichiers. 

Nous verrons dans un prochain nu- 
méro la méthode à utiliser pour ra- 
jouter de nouvelles instructions à 
ProDOS ainsi que. plus générale- 
ment, la programmation système qui 
doit suivre un certain nombre de 
règles. 


Quelques précisions sur le chemin 
d'accès d'un fichier. 

Pour accéder à un fichier sur un vo- 
lume, ProDOS concatène trois infor- 


S : 
— le PREFIX. dont la valeur corres- 


pond initialement au nom du volume 
de démarrage, 
— le chemin d'accès réduit éventuel- 
lement précisé dans la commande, 

— le nom du fichier. 
Ainsi pour un PREFIX 
/DISK.POMS/NO01/, si l'on émet l’ins- 
truction : LOAD UTIL / DIRECT. 
CONVERT, ProDOS ira chercher : 
/DISK. POMS } NO! / UTIL / DI- 
RECT. CONVERT. 
Nota : si les paramètres Slot et Drive 
sont également précisés mais incom- 
patibles, ils seront ignorés. 


Voici, pour terminer l'étude des 
commandes ProDOS / 
BASIC.SYSTEM, leur syntaxe : (pn 
— pathname = chemin d'accès ré- 
duit + nom de fichier) 


APPEND pn [.L] [,Ss] [.Dd] 

BLOAD pr [Aa] [Bb] [,LIEe] 
[,Tt] [Ss] [,Dd] 

PE pn {, As [Bb] [,LIEe] 


BSAVE pn . .LVEe [.Bb] 
{.Tt] [,Ss] [,Dd] 

CAT p 

CATALOG p 

CHAIN pn {,@n] [,Ss] [.Dd] 

CLOSE [pn] 

CREATE pn [.Tt] [.Ss] [.Dd] 

DELETE pn [,Ss] [.Dd] 

EXEC pn [.Ff] [,Ss] [.Dd] 

FLUSH {pn] 

IN# [s] [.] [Aa] 

LOAD pn [.Ss] [.Dd] 

LOCK pn [,Ss] [.Dd] 

OPEN pn [{.Ll] [.Ss] [.Dd] 

POSITION pn {,Ff] {.Bb] 

PREFKX p [.Ss] [.Dd] 

PR# [s] [,] [Aa] 

READ pn [.Rr] [.Ff] [.Bb] 

RENAME pni1,pn2 [.Ss] [.Dd] 

RESTORE pn [.Ss] [.Dd] 

RUN pn {.@n] [,Ss] [.Dd] 

SAVE pn [,Ss] [.Dd] 

STORE pn [,Ss] [.Dd] 

UNLOCK pn [.Ss] [.Dd] 

WRITE pn [,Rr] [.Ff] [.Bb] 

— pn [.Ss] [.Dd] 


Note: dans tous les cas, le paramètre 
V (volume) du DOS 3.3 est autorisé 
mais ignoré. 


Et les codes erreurs possibles (acces- 
sibles par PEEK(222) si ONERR est 
actif) : 

02 Range error 

03 No device connected (ROM non 
trouvée sur le slot spécifié) 

04 Write protected 

05 End of data 

06 Path not found 

07 Path not found 

08 [/O error 

09 Disk full 

10 File locked 

11 Invalid option 

12 No buffers available (maximum 
de 8 fichiers ouverts contre 16 sur 
DOS 3.3 

13 File type mismatch 


14 Program too large 

15 Not direct command 

16 Syntax error (code identique au 
Basic, seul manque le ‘?° initial) 

17 Directory full (catalogue principal 
uniquement) 

18 File not open 

19  Duplicate  filename (avec 
CREATE ou RENAME) 

20 File busy (si CAT, CATALOG, 
DELETE ou RENAME d'un fichier 
ouvert) 

21 File(s) still open (CLOSE impéra- 
tif avant la fin de programme) 


Modifications des 
commandes Applesoft 


Trois points essentiels méritent d'être 
soulignés : 

— Ïl est possible d'utiliser la 
commande HIMEM, mais de manière 
à ce que celui-ci se trouve sur une 
page mémoire de 256 ($100) octets. 
En effet, ProDOS alloue dynamique- 
ment les buffers de fichiers en exami- 
nant la valeur actuelle de HIMEM. 


— L'instruction TRACE de l'Apple- 
soft fonctionne sans problème sous 
ProDOS (en fait celui-ci utilise le 
TRACE pour contrôler le programme 
en cours |). 


— Etrangement, la commande FRE 
qui permettait un nettoyage très ra- 
pide de la mémoire semble avoir dis- 
paru de la version commercialisée de 
ProDOS. De même, deux améliora- 
tions importantes de l'Applesoft, qui 
étaient prévues dans les spécifications 
originelles de ProDOS, ont disparu : 
d'une part la commande INPUT de- 
vait pouvoir accepter la saisie des ca- 
ractères de ponctuation telles que la 
virgule ou les deux-points: d'autre 
part ProDOS devait, à l'interception 
d'une instruction HGR ou HGR2, li- 
bérer l'espace mémoire correspon- 
dant pour les programmes Basic. Ap- 
paremment ces routines ont dépassé 
le quota d’octets qui leur avait été al- 
loué, d'où leur suppression pure et 
simple. 


Utilisation avec carte 
80 colonnes étendue 


Caractéristique encore mal connue 
de ProDOS, celui-ci détecte automa- 
tiquement la carte 80 colonnes éten- 
due. Qu'en fait-il ? Il crée un disque 
virtuel dans l'espace mémoire auxi- 
liaire de 61K, accessible par le pré- 
fixe /RAM. Le disque créé contient 
128 blocs de 512 octets arrangés 
ainsi : 

Blocs 0-1 : non disponibles 

Bloc 2: catalogue principal pour 12 
fichiers 

Bloc 3 : carte du volume 

Blocs 4-7 : non disponibles 

Blocs 8-127: sous-cataloques et fi- 
chiers. 
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Ce volume, considéré de manière in- 
terne comme situé au Slot 3, Drive 
2, ne peut cependant être référencé 
que par son préfixe. Bien entendu. 
les informations qui y sont contenues 
disparaissent lorsque se retire le cou- 
rant électrique ! 


Conversion 
DOS/ProDOS de 
fichiers à accès direct 


L'utilitaire Convert de la disquette 
système ProDOS ne permet pas de 
convertir automatiquement les fi- 
chiers à accès direct. Deux difficultés 
majeures empêchent, en effet, une 
conversion automatique : 

1. Il est nécessaire de spécifier la lon- 
gueur d’un enregistrement. Cette va- 
leur, (bien que mémorisée de ma- 
nière interne par ProDOS), doit 
impérativement être indiquée au sys- 
tème d'exploitation afin qu'il recon- 
naisse un fichier à accès direct. 

2. Les informations du fichier peu- 
vent être clairsemées {sparse file ou 
"fichier creux”): certains enregistre- 
ments ont été écrits, d’autres ne l'ont 
jamais été et contiennent donc des 
octets à zéro binaire qui provoquent, 
à la moindre tentative de lecture, un 
irrémédiable "End of Data Error”. 


Quelques rappels sur les fichiers à 
accès direct peuvent être utiles : 


1. Un fichier à accès direct est un en- 
semble d'enregistrements de même 
longueur. Ceux qui ont déjà été 
écrits se terminent par un caractère 
retour-chariot : un enregistrement de 
longueur n contient n-1 caractères si- 
gnificatifs suivis d’un Return. Certains 
fichiers à accès direct ont cependant 
une structure moins orthodoxe et 
contiennent des enregistrements à n 
caractères significatifs : il est alors né- 
cessaire de les lire par une série de 
GETSs et non par un INPUT. 


2. Chaque enregistrement (record) 
est composé de 1 à plusieurs champs 
(field). Ceux-ci peuvent être de lon- 
gueur variable, à la condition que la 
somme de leur longueur soit cons- 
tante. Les champs sont séparés entre 
eux, soit par un retour-chariot, soit 
par une virgule, selon l'humeur du 
programmeur. 


3. Sous DOS 3.3, le nombre de sec- 
teurs d'index d'un fichier ne peut dé- 
passer la taille d'une disquette: le 
programme : 

100 PRINT D$'OPEN  FICH- 
DIR.L"512 

110 PRINT D$"DELETE FICHDIR‘" 
110 PRINT DS$'"WRITE  FICH- 
DIR.R"200%122 

120 PRINT ‘A” 

130 PRINT D$"CLOSE FICHDIR" 
Sature quasi-complètement les 140 
kilo-octets disponibles …. après plus 
de 3 minutes d'exécution. Le même 
programme lancé sous ProDOS n'al- 
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loue que 6 blocs (3 kilo-octets), avec 
un gain comparable en vitesse. 

Sous ProDOS, un fichier de 16 
méga-octets, peut donc résider sur 
une disquette de 140K, pourvu que 
seuls quelques enregistrements aient 
été écrits. 

Deux remarques : 

— Sous ProDOS, il est nécessaire 
d'ajouter la ligne: 105 PRINT 
D$"CLOSE FICHDIR” car tout fi- 
chier ouvert doit dorénavant être ex- 
plicitement fermé. 

— Le programme CONVERT se 
plante lamentablement à la lecture 
du catalogue d'une disquette Dos 3.3 
contenant  FICHDIR! Prudence 
donc. 


4. En règle générale, l'enregistrement 
numéro zéro est utilisé de manière 
particulière: il contient souvent le 
nombre d'enregistrements du fichier. 


Méthodes de conversion 


Revenons à notre objectif de conver- 
sion de fichiers directs. Trois métho- 
des peuvent être envisagées : 


1. Conversion du fichier direct en fi- 
chier séquentiel, puis conversion de 
ce dernier par Convert, enfin re- 
conversion du résultat en fichier di- 
rect. D'où un total de 3 à 4 disquet- 
tes dont une 1 à 2 intermédiaires, 
donc beaucoup de manipulations et 
beaucoup de temps, plus la nécessité 
que tous les enregistrements aient été 
écrits au préalable, ne serait-ce que 
par un simple Return. C’est la mé- 
thode préconisée jusqu'à présent. 

2. Re-formatage logique de la dis- 
quette DOS 33 en disquette 
ProDOS (ou vice-versa), sans altérer 
le contenu du ou des fichiers. C'est 
la méthode la plus rapide mais égale- 
ment la plus hasardeuse et 
complexe, compte tenu des systèmes 
différents d'allocation des blocs et 
secteurs. 


3. Lecture et écriture simultanée de 
chaque enregistrement par l'utilisa- 
tion conjointe en mémoire des deux 
systèmes d'exploitation. Cette mé- 
thode n'utilise aucune disquette inter- 
médiaire, n'impose qu'un seul accès 
à chaque enregistrement, et est relati- 
vement facile à programmer en Ap- 
plesoft, lorsque les problèmes de co- 
habitation mémoire sont résolus. 


Cette dernière méthode a été rete- 
nue pour le programme CQFD (pour 
Conversion Qualifiée de Fichiers Di- 
rects !}, qui impose la disponibilité de 
deux lecteurs de disquettes (ou un 
lecteur et un disque dur. pourquoi 
pas ?). ce qui ne devrait pas être une 
contrainte importante. les fichiers à 
accès direct étant généralement utili- 
sés dans un environnement quasi- 
professionnel. En revanche, les enre- 
gistrements peuvent ne pas avoir été 
initialisés, les erreurs ‘End of Data” 





étant interceptées et gérées par le 
programme. 


Utilisation 


Une fois mis en place, CQFD 
convertit automatiquement tout fi- 
chier direct, selon différents paramè- 
tres modifiables, et propose des va- 
leurs par défaut : — nom des fichiers 
origine et destination: 

— enregistrements terminés ou non 
par un Return; 

— longueur totale d'un enregistre- 
ment (y compris l’éventuel Return): 
— nombre de champs séparés par un 
Return dans chaque enregistrement: 
— numéro de début et fin des enre- 
gistrements à convertir; 

— et, bien sûr, le sens du transfert : 
DOS vers ProDOS ou l'inverse. 


L'utilisateur a la possibilité de donner 
des commandes directes DOS 3.3 ou 
ProDOS sans sortir du programme 
afin, par exemple, de modifier les 
numéros de slot et drive du Dos ou 
le Prefix ProDOS. D'autre part, afin 
de minimiser le temps d'exécution, 
les enregistrements ne sont pas lus et 
écrits un par un, mais par bloc de 
plusieurs dizaines à plusieurs milliers 
selon la capacité mémoire disponible. 


"CQFD'" se compose de trois par- 
ties : 

— le programme Applesoft CQFD: 

— le module utilitaire en assembleur 
CQFDB (source CQFD.B.S en Big 
Mac); 

— le fichier CQFD.DOS.I6K (voir 
plus loin). 

Tous trois doivent être placés sur une 
disquette ProDOS (ils peuvent être 
transférés sans problème par 
Convert). Après avoir ‘’booté” sous 
ProDOS, on lance le programme par 
un simple RUN CQFD. 


Dix messages d'erreur peuvent être 
générés par le programme: il est bon 
de les détailler : 

— Fichier non précisé : il faut saisir 
les paramètres de conversion avant 
de demander le transfert. 

— Fin brutale de fichier : la fin du fi- 
chier a été rencontrée. Les enregis- 
trements lus à zéro binaire ne provo- 
quent pas cette erreur: en revanche, 
la lecture d'un fichier tellement clair- 
semé (creux) que certains blocs de 
données n'ont même pas été alloués 
par le système d'exploitation engen- 
drera cette erreur. Il est alors néces- 
saire de définir une plage moins 
étendue d'enregistrements. 

— Erreur Système : une (improba- 
ble ?) erreur dûe au programme. 


Les autres messages d'erreur s'expli- 
quent par eux-mêmes. L'interruption 
par CTRL-C est gérée par le pro- 
gramme: en revanche, le Reset agit 
comme à l'habitude. 


Démonstration du programme 


Deux fichiers directs de démonstra- 
tion (présents sur la disquette d’'ac- 
compagnement) peuvent être utilisés 
pour observer le fonctionnement du 
programme : 

— CQFD.TESTI1 contient quinze en- 
registrements (0 à 14) de longueur 
unitaire 24 contenant chacun trois 
champs de 7 caractères suivis d'un 
Return. 

— CQFDTEST2 contient quatre en- 
registrements, numérotés 1, 19, 33 et 
73 de longueur unitaire 8, contenant 
un champ dont les 8 caractères sont 
significatifs. 


Pour vérifier le bon fonctionnement, 
il suffit de convertir un fichier dans 
un sens puis dans l’autre (sous un 
nom différent !) puis de comparer le 
fichier original avec le fichier résultat, 
soit par un des utilitaires disponibles 
(le Filer de ProDOS par exemple), 
soit par la commande TDUMP 
(Pom's 12 p.28). 


Fonctionnement interne 


Le programme repose sur la pré- 
sence simultanée en mémoire de 
ProDOS et du DOS 3.3, d'où un 
premier problème : où les placer ? 
ProDOS se loge, dans sa version 
commercialisée, sur la partie haute 
de la mémoire. En revanche le DOS 
est relogeable et une disquette Mas- 
ter peut le placer en 16K, 32K ou 
48K, selon la configuration mémoire 
de l'Apple. 


A l'évidence, la version 16K s'impo- 
sait néanmoins comment obtenir 
une version assemblée en 16K lors- 
que l'on ne possède que des Apple 
de 48K ou plus? Le petit pro- 
gramme CQFD.DOS.16K.CREATE, 
listé plus loin, génère le fichier 
CQFD.DOS.16K qui est l'image ins- 
tantanée du DOS issu d'une dis- 
quette Master avant qu'il ne se re- 
loge en 48K et charge le programme 
de HELLO. Ce programme n'est 
destiné qu'aux lecteurs de Pom's qui 
n'ont pas la disquette de ce numéro. 
Je n'en détaillerai pas le fonctionne- 
ment car il est bien peu orthodoxe... 


Bref, vous avez les 3 fichiers CQFD, 
CQFD.B et CQFD.DOS.I16K que 
vous avez transférés vers une dis- 
quette ProDOS et vous lancez le pro- 
gramme CQFD. Celui-ci charge les 
deux autres fichiers (lignes 6060) et 
fixe LOMEM et HIMEM (ligne 150) 
afin d'obtenir l'allocation mémoire 
suivante : 

$0000-$07FF : mémoire partagée 


(fichier CQFD.B en 

$0300) 

$0800-$1AAS : programme Apple- 
soft . 
$1AA6-$1CFF : buffer Dos 3.3 
$1D00-$3FFF : Dos 3.3 en version 
16K 

$4000-$95FF : variables Applesoft 
$9600-$97FF : buffer de fichier 
ProDOS 

$9800-$FFFF : ProDOS + Applesoft 
+ Moniteur sur Rom et carte langage 


Le DOS 3.3 est démarré à froid pour 
qu'il s'initialise sans effacer le pro- 
gramme puis on lui fait comprendre 
que, pour une fois, les variables du 
Basic se situeront au-dessus de lui. 
Simultanément, on indique à 
ProDOS que les routines d'entrée / 
sortie seront gérées par le Dos (ligne 
6500). Maintenant qu'ils ont fait 
connaissance, on obtient la hiérarchie 
suivante pour l'interception des en- 
trées / sorties : 

l-en premier le DOS 

2-puis ProDOS 

3-qui renvoie à l'Applesoft 

4-et finalement c'est le Moniteur qui 
travaille ! 


Un petit POKE permet de définir 
CHR (2) comme caractère de réveil 
du DOS, CHR$ (4) restant dirigé 
vers ProDOS. (ligne 3000). Tout se- 
rait parfait dans notre petite famille. 
malheureusement, à chaque erreur, 
les deux systèmes d'exploitation se 
montrent insupportablement égoïstes 
et tentent de se reconnecter en tête 
de la hiérarchie; or ce ne sont pas les 
erreurs qui manquent, ne seraient-ce 
que les “End of Data” à la lecture 
des enregistrements vides! Il faut 
alors patiemment reconstruire la py- 
ramide; c'est le rôle du module 
CQFD.B qui comprend plusieurs par- 
ties : 

— redirection des entrées / 
entre DOS et ProDOS: 

— initialisation à froid du DOS sans 
perte ni arrêt du programme: 

— routine fixant le bug du traitement 
d'erreur de l’Applesoft; 

— routines de saisie générale: & 
INPUT accepte les virgules et autres 
caractères insolites; & GET permet la 
lecture de plusieurs caractères et leur 
concaténation pour former une varia- 
ble Applesoft (syntaxe : & GET 
<nom variable>, <longueur varia- 
ble>); 

— interception des erreurs de lecture 
du DOS car celui-ci (bug que j'igno- 
rais !} oublie” la longueur des enre- 
gistrements d'un fichier direct après 
un ‘End of Data”. 


sorties 


Afin d'accélérer le programme de 
transfert, les enregistrements sont lus 
et écrits par bloc. La taille du bloc 
(déterminée en ligne 753) permet 
une utilisation. optimale de la mé- 
moire vive disponible (compte tenu 
des besoins de ProDOS pour ses 
buffers). 

En corollaire le programme utilise un 
système d'allocation et libération dy- 
namiques pour le tableau A$(M,N) 
contenant tous les champs de tous 
les enregistrements du bloc en 
cours: quelques PEEKs et POKEs 
(lignes 1010, 1070, 1237, 1240) suf- 
fisent, pourvu que le tableau soit la 
dernière variable Applesoft déclarée . 
dans le programme. 


Quelques remarques générales avant 
de terminer : 


1. Le programme peut être modifié 
dans la mesure où il ne dépasse pas 
la dizaine d’octets restant disponibles 
avant le buffer du DOS (on peut éli- 
miner les remarques); néanmoins, at- 
tention à certaines instructions d’ap- 
parence anodine (telles que l'INPUT 
de la ligne 6060) qui sont néanmoins 
nécessaires pour l'initialisation et 
‘équilibre du système. 

2. L’allocation de l'espace disque est 
moins efficace sous DOS 3.3; vous 
pouvez donc obtenir des erreurs 
"DISK FULL” en convertissant de 
ProDOS vers DOS, et à plus forte 
raison à partir d'un gros fichier sur 
disque dur. 


3. En sortant du programme, vous 
avez la possibilité de conserver les 
deux systèmes d'exploitation actifs. 
La hiérarchie décrite ci-dessus reste 
valable mais les interceptions ne sont 
pas prévues pour une utilisation di- 
recte des commandes : essayez (c'est 
sans risque) et comparez ! Pour acti- 
ver un système ou l’autre, allez sous 
le Moniteur et tapez sur la même 
ligne : 
e O [ctrl-P] O [ctri-K] BE00G pour 
ProDOS 
e O [ctrl-P] O [ctrl-K] 1DBFG pour 
DOS 


Deux observations : 

1) sous DOS ou l'Applesoft, l'appui 
sur la touche Return provoque un 
double saut de ligne, sous ProDOS 
un seul saut est généré. 

2) N'oubliez pas que les commandes 
PR#, IN#, LOAD et SAVE sont à la 
fois des instructions DOS, ProDOS et 
Applesoft. lequel des trois réagit en 
premier ? 


———————————______—_—_—_—_—_—_—_—————————— 


1 REM *x CQFD.DOS.i1éK.CREATE ** : POKE 16384,0: PRINT D$"RUN CQFD. 
DOS.1i6K.CREÂTE" 


2 REM AA/251084/UV1 
10 D$ = CHR$ (4) 


20 F$ = “CQFD.D0S.16K" 
PEEK (104) = 8 THEN POKE 104,64 120 


100 IF 


110 TEXT : 


HOME : PRINT “GENERATION DOS 


3.3 SUR ENVIRONNEMENT 1é6K" 





PRINT : 


PRINT : INPUT "INSEREZ UNE D 
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130 


135 
150 
155 
160 
170 
180 


700 


ISQUETTE MAITRE (AVEC DOS RELOGEA 
BLE) EN SLOT 6, DRIVE 1 -->";2% 
A$ = “300:A0 0 B9 0 Cé 99 O0 96 88 DO 

F7 A9 60 8D F8 96 20 0 96 A9 60 8D 
48 8 20 1 8 A9 60 8D 47 37 4C EA 
3": GOSUB 700 
A$ = "230<300.3CFM": GOSUB 700 
CALL 540 
POKE 49384,0 
HOME : PRINT "INSEREZ UNE DISQUETTE 
RECEPTRICE DU","FICHIER "F$" EN SL 
OT 6, DRIVE 1:";: INPUT ":2$ 
PRINT D$"BSAVE"F$" ,A$1D00 ,L$2300 ,S6, 
D1 ,VO" 
PRINT "FICHIER GENERE.": PRINT D$"FP 


A$ = ÀA$ + " ND9CéG": FOR I = 1 TO LE 
N CAS): POKE 511 + I, ASC ( MID$ « 
A$%,1,19) + 128: NEXT : POKE 72,0: 
CALL — 144: RETURN 


2200 


1 
2 
3 
4 


100 
115 


117 


530 
540 


550 


555 


570 


580 


585 


REM CQFD 
REM (C) 1984 Alexandre Avrane 
REM 25/oct/84 
REM Version 8.4 
NOTRAÂCE : ONERR GOTO 8500 
IF PEEK (175) + 256 *x PEEK (1746) > 
6810 THEN FLASH : PRINT "PROGRAM 
ME TROP GRAND!": NORMAL : END 
IF PEEK (55) < > 183 THEN FLASH : 
PRINT "VOUS N’ETES PAS SOUS PRODO 
S'": NORMAL : END. 

PRINT CHR$ (4) "CLOSE": POKE 116,150 
: GOSUB 5000: IF PEEK (768) <« >) 
216 THEN GOSUB 6000 

GOSUB 6500: POKE 105,0: POKE 106,64: 

POKE 115,0: POKE 116,150: CLEAR 

GOSUB 3000 

GOSUB 2000 

J = 0: GET A$: FOR I = j TO LEN (T#) 
iJ = J + (AS = MID$ (T$,1,1)): NE 
XT : IF NOT J THEN 190 

REM GESTION DU MENU 

PRINT : ON A$ = "T" GOTO 1000: ON A$ 
= "F" GOTO 700: IF A$ = "C" THEN 
X$(C0) = CHR$ (2) + "CATALOG,S" + 
STR$ (DS) + ",D" + STR$ (DD) :X$€ 
12 = CHR$ (4) + "CAT" + PF$: TEXT 

: HOME : PRINT X$(S): GET 2Z$ 

IF ÀA$ = "S" THEN S = 1 - S 

IF À$ = "P" THEN TEXT : HOME : PRIN 
T "Commande ProDOS:": PRINT Pers 
& INPUT 2$: IF 2Z$ < > "" THEN 
PRINT CHR$ (4)2$: GET Z$: GOTO 54 
0 

IF À$ = "D" THEN TEXT HOME : PRIN 
T "Commande Dos 3.3:": PRINT "-)"; 
5 & INPUT 2$: IF 2$ < > "" THEN 
PRINT CHR$ (2)2$: GET Z$: GOTO 5 
50 

DS = PEEK (14313) / 16:DD = PEEK «1 
4314): IF À4$ < > “X" THEN 180 

PRINT : PRINT CHR$ (2)"CLOSE": PRIN 

T  CHR$ (4)"CLOSE": HOME : PRINT : 
PRINT “P: Retour sous Applesoft + 
ProD0S","D: Retour sous Applesoft 
+ Dos 3,3","!: Retour sous Apples 

oft + ProDOS+Dos" 

GET 2$: IF 2$ < > CHR$ (27) AND 2$ 

< > "D" AND 2$ < > "P" AND 28 <« 
> "!" THEN 580 
ON 2$ = CHR$ (27) GOTO 1: TEXT : HO 


EE "* 
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600 


610 
699 
700 


720 


725 


730 


750 


753 


ME : 1F 2Z$ = "D" THEN PRINT CHRS$ 
C2)"FP" 
IF 2$ = "P" THEN PRINT CHR$ (4)"PR 
#0": PRINT CHR$ (4)"INHO" 
END 
REM SELECTION OÙ FICHIER 
VTAB 13: CALL — 958: PRINT : POKE 3 
4,12: POKE 35,22: PRINT : PRINT "N 
om du fichier origine:":iX$ = F1$: 
GOSUB 7000: IF 2$ < > "" THEN F1$ 
= 2$ 
F2$ = F1$: PRINT : PRINT "Nom du fich 
ier destination:":X$ = F2$: GOSUB 
7000: IF 2$ < > "*“ THEN F2$ = 2$ 
PRINT : PRINT "Enregistrements termi 
nts","par un retour-chariot (o/n) 
0"B$(1);: GOSUB 7100:LX = Z: IF 
NOT LX THEN LF = 1 
PRINT : PRINT "Longueur totale d’un 
enregistrement: ":iX$ = STR$ CLR): 
GOSUB 7000: IF Z AND Z < Ké4 THEN 
LR = 2 
IF LX THEN PRINT : PRINT “Dans chaq 
ue enregistrement," ,"nombre de cha 
mps s(par{ts","par un retour-chario 
t:":X$ = STR$ (LF): GOSUB 7000: I 
F Z AND 2 < Ké4 THEN LF = 2 
BZ = ( FRE (0) - 2048) / (LR + 3 * LF 
+ 9) 


755 IF LR + 3 *x LF > FRE (0) THEN PRIN 
T CHR$ (7) CHR$ (7): INVERSE : PR 
INT "TAILLE D’1 ENRGT > MEMOIRE DI 
SPONIBLE";: NORMAL : GET 2$: GOTO 
700 
760 PRINT : PRINT "No premier enrgt:":Xx$ 
= STR$ (R1): GOSUB 7000: IF Z > 
— 1 AND Z < Mié THEN R1 = Z 
770 R2 = INT (M16 / LR): PRINT : PRINT * 
No dernier enrgt:":X$ = STR$ (R2) 
: GOSUB 7000: IF 2 > = Ri AND Z < 
Mié THEN R2 = 2 
780 GOTO 180 
997 REM CONVERSION 
1000 HOME : IF F1$ = "" THEN ER = 2: 6G0OS 
UB 8000: PRINT : GOTO 180 
1005 I1 = R1:12 = Ri:K = O!T = O:ER = 0 
1010 POKE 7, PEEK (109): POKE 8, PEEK (1 
10): DIM A$SCBZ — 1,LF -— 1) 
1030 REM LECTURE | 
1040 PRINT DI$"OPEN"F1i$",L'LR: CALL 928 
1070 POKE 3, PEEK (111): POKE 4, PEEK (1 
12) 
1075 FOR J = 0 TO B% - 1 
1080 : PRINT D1$"READ'F1$",R"I1 
1090 : PRINT "Lecture #"I11; 
1100 : FOR K = 0 TO LF - 1 
1110 : IF LX THEN & INPUT A$(J,K): GOTO 
1130 
1120 : & GET A$(J,0) ,LR 
1125 IF S THEN VTAB PEEK (37) 
1130 IF LEN (A$CJ,K)) THEN IF NOT AS 
C € LEFT$ (CA$SCJ,K),1)) THEN A$(J,K 
) = LE 
1135 HTAB 10 + LEN © STR$ (1132): CALL 
— 868: PRINT ,A$S(J,K);: IF NOT L 
EN (A$S(J,K)) THEN INVERSE : PRINT 
, "VIDE" ;: NORMAL :K = LF — 1 
1140 : PRINT : NEXT :11 = I1 + 1: IF 11 > 
R2 THEN J = B% 
1150 : PRINT Di$: NEXT : PRINT Di$"CLOSE” 
F1$ 
1160 REM ECRITURE 
1165 PRINT "Ecriture H#"I2"-"I1 — 1: PRIN 


et 
#4 


ri 
A 
% 
LA 
* 
p: 
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3 


FRA ÉRMEZX di 


atedrif 





T D2$"OPEN"F2$",L"LR 3090 DIM ER$#(9): FOR I = 0 TO 9: READ ER 
1170 FOR J = 0 TO B% - 1 SCI): NEXT 
1175 : IF NOT LEN (A$(J,0)) THEN 1220 3100 DATA *x*x*x ERREUR SYSTEME *%x%,FICHIER 
1180 : PRINT D2$"WRITE"F2$" ,R"12 NON PRECISE,PARAMETRES DE TRANSFE 
1190 : FOR K = 0 TO LF - 1 RT INVALIDES,VOLUME OÙ FICHIER INC 
1200 :: PRINT A$(CJ,K); ONNU,DISQUE OÙ DIRECTORY PLEIN 
1205 :: IF K < LF —- 1 THEN PRINT 3110 DATA FICHIER OÙ VOLUME VERROUILLE,T 
1210 : NEXT : IF LX THEN PRINT YPE DE FICHIER INVALIDE,ERREUR D'°'E 
1220 :12 = 12 + 1: IF 12 > R2 THEN J = B% NTREE/SORTIE,FIN BRUTALE DU FICHIE 
1230 : PRINT D2$: NEXT R, COMMANDE; PREFIXE OÙ FICHIER INV 
1235 PRINT D2$"CLOSE"F2$ ALIDE 
1237 POKE 109, PEEK (7): POKE 110, PEEK 4999 - REM MODULES UTILITAIRES 
C8) 5000 TEXT : COLOR= 2: FOR I = 47 TO O0 ST 
1240 POKE 111, PEEK (3): POKE 112, PEEK EP - 1: HLIN 0,39 AT I: NEXT : RE 
(4): IF 11 < = R2 THEN 1010 TURN 
1280 FLASH : PRINT : PRINT SPCC S)"x#% 6000 PRINT CHR$ (4)"BLOAD DOS.16K,A$1D0 
CONVERSION TERMINEE #%#%#%" SPCC 6) C 0" 
HR$ (7): NORMAL : WAIT 49152,128: 6010 POKE 10929,1: POKE 10930,130: REM m 
GOTO 180 axfiles=1i & ctri-b 
1999 REM MENU 6020 PRINT CHR$ (4)"BLOAD CQFD.B,A$300" 
2000 GOSUB 5000: VTAB 1: PRINT "CONVERSI | 4930 CALL 776: POKE 1014,60: POKE 1015,3 
ON QUALIFIEE DE FICHIERS DIRECTS": 6050 GOSUB 6500 
PRINT SPCC 7)"(C) 1984 ALEXANDRE | 6060 TEXT : CALL - 868: INPUT “Appuyez 
AURANE" SPCC 8): POKE 33,38: POKE sur <Return> pour commencer:";2$: 
32,1: POKE 34,5: POKE 35,23: HOME RETURN 
6500 PRINT CHR$ (4)"PRH#A$300": PRINT C 
2030 PRINT C$(1)"PREFIX": INPUT PF$ HR$S (4) "IN#AS304": RETURN 
2040 D1$ = C$(S):D2$ = C$(1 - S):A$ = F1$ | 7000 PRINT "==>"X#$B$( LEN (X#)) ;: INPUT 
: IF ÀA$ THEN À$ = A$ + ",L" +  STR "":2$:2 = INT € VAL (Z$)): IF 2Z$ 
$ CLR) = “" THEN VTAB PEEK (37): HTAB 4 
2060 PRINT SPCC 8)S8(S): PRINT : PRINT : PRINT X$ 
" Dos 3.3: S"DS",D"DD: PRINT * Pro 7010 RETURN 
DOS : "PF$: PRINT " Fichier: "A$: 7100 GET 2Z$: ON 2$ < > CHR$ (13) AND 2 
FOR I = 1 TO 38: PRINT "_"3;3: NEXT $ € > "N" AND Z$ < > "O" AND 2$ 
2080 PRINT : PRINT " P: Donne une comman £ > “n" AND Z$ < > "“o" GOTO 7100 
de ProDOS": PRINT " D: Donne une c : PRINT 2$:2 = (2$ = "O" OR Z$ = " 
ommande Dos 3.3": PRINT " S: Inver o" OR 2% = CHR$ (13)2): RETURN 
se le sens du transfert" 7999 REM GESTION DES ERREURS 
2090 PRINT " C: Catalogue volume origine 8000 HOME : PRINT :ER = VAL < MID$ (PE$ 
"3 PRINT " F: SClection du fichier (T),ER,1)) 
“+ PRINT " Ti Transfert & conversi | 8010 HTAB 19 - LEN CERSCER)) / 2 + .5: 
on": PRINT “ X: Sortie" FLASH : PRINT CHR$ (7)ER$CER) CHR 
2100 PRINT : HTAB 17: PRINT "-3» <-"3;3: HT $ (7): NORMAL : PRINT : PRINT "[Re 
AB 19: RETURN turnl->continue, CEsc]l-)>abandonne" 
2999 REM INITIALISATIONS ; 
3000 DIM CH(1):C8(0) = CHR$S (2):C$C1) = | 8020 GET 2$: IF 2$ = CHR$ (27) THEN PR 
CHR$ (4): POKE 10930,130: REM ct INT : RUN 
ri-B pour DOS 8030 IF 2$ = CHR$ (13) THEN RETURN 
3020 T+$ = "PDSCFTX": DIM X$#(1)2:S = 0: REM | 8040 GOTO 8020 
sens initial 8500 CALL 818:T = ( PEEK (55) = 183): CA 
3050 DIM S$(1):S$(0) = "DOS 3.3 ----}> PR LL 804: REM virifie Dos actif etr 
0D0S":S#(1) = "PRODOS ----»> DOS 3. {tablit ProD0OS 
3":Mié = 16777215:Ké64 = 6S5S36:LR = | 8520 ER = PEEK (222) + 1: IF ER > 254 TH 
1:LF = 1 EN 570 
3060 DS = PEEK (48700) :DD = 3 - PEEK (4 | 8523 IF ER = 6 AND NOT PEEK (986) AND 
8701): REM sur autre drive par dcCf NOT T THEN 1130 
aut 8525 IF ER > 18 THEN ER = 1! 
3070 DIM B$(30):B$(1) = CHR$ (8): FOR I | 8550 GOSUB 8000: PRINT : RESUME 
= 2 TO 30:B#$(1) = B$SCI - 1) + CH | 11000 PRINT CHR$ (4)"PR#1": PRINT CHR$ 
R$ (8): NEXT (27)"A" CHR$S C5): PRINT CHR$ (9) 
3080 DIM PES(1):PE$(0) = "01225833745906 "SON": LIST 0,9999: PRINT CHR$ (4 
0900":PE$(1) = “018758337459060794 )"PRH#O": END 
| HR RARRERRRRRERRERREIERERRETARRRE 10 * 20/oct/84 
2 * CaFD.B * 11 
3 OKkKKEXXXÉHÉXEÉ EEK NÉ N RE HENENOE DEN EDEN EE 12 * Toutes adresses pour dos en 1é6k 
4 13 
9 * Module appele par CQFD 14 ORG +300 
6 *# (conversion qualifiee de 15 
7 # fichiers directs) lé #2 2 26 26 36 DE 36 HE DE JE DE DE DE DE JE DE JE DE DE DE DE 6 DE EEE XXE 6 
8 17 * VECTORISATION E/S PRODOS->D0OS * 
9 * Copyright (C) 1984 À.Avrane 18 xx 26 2602 DE HE DE ED DE MED DE JE DE DE DE DE EE DEEE EEE EDEN 


ASE EEE 0 


12 
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17 77 JSR $DDé6C contrôle 


20 * Ces routines doivent debuter par qu’il s’agit d’une chaîtne 
un ‘CLD’ pour être validees 78 JSR $DEBE verifie la 
21 presence de la virgule 
22 CLD 79 JSR $EéF8 recoit la 
23 JMP  $1EBD dos 3.3 cs longueur demandee... 
wW 80 STX +06 ...et la s 
24 CLD à auveqgarde 
25 JMP  $1E81 dos 3.3 ks 81 PLA 
W 82 STA $83+1 restore $8 
26 3=adresse du descripteur de la var 
27 KHX HE DE DEMEURER DE DEEE NEED EEE XX iable 
28 * INITIALISATION PRODOS+D0OS 16K +* 83 PLA 
29 KRREXEHXXHHH HEURE NE ND JE DEE EE XX 84 STA +83 
30 8s LDX HO 
31 LDA #$60 RTS” 86 LOOP JSR $FDOC lit un car 
32 STA $1DE7 pour retou actere... 
r apres demarrage a froid 87 STA +$200,X et le stoc 
33 JSR $FES89 pr#0 Ke dans le buffer d’entree 
34 JSR $FE93 in#kO 88 JSR $FDED on l’envoi 
35 JSR +$1D84 le dos s’i e en sortie via les Dos 
nitialise en #$1D00-$3FFF 89 INX 
36 90 CPX $06 suffisamme 
37 LDA  H#$AO caractere nt de caracteres? 
blanc envoye a l’affichage... 91 BCC LOOP pas encore 
38 LDX #0 92 BCS TRANSFER =)jmp 
39 LDY #0 93 
40 JSR  $1EBD -.-pour te 94 INPUT LDA #$84 token d’IN 
rminer l’initialisation du dos PUT 
41 95 JSR $DECO verifie pr 
42 LDA H#$6C ‘JMP*’ indi esence du token 
rect retablit le Dos... 96 JSR $0FE3 
43 STA $1I1DE7 +..-pour pe 97 JSR $DD6C 
rmette la commande "FP" 98 
44 99 LDX #$80 
45 JSR $FE89 pr#0 100 STX #$33 trompe Île 
46 JSR $FE93 in#0 moniteur et... 
47 JSR  $9A8F ProDos pre 101 JSR $FD6A ...appelle 
nd la main sur csw/ksw sa routine d’entree ligne 
48 LDA #0 102 STX $06 on conseru : 
49 STA $24 initialise e la longueur Fes 
htab pour ProDos 103 És- à) 
50 RTS 104 TRANSFER JSR $D539 formatte 1] È 
51 a chaîne pour fApplesoft 
S2 #44 #26 XX NME 6 HE NE DEEE DE DE DE DE EEE EE EE 6 € 105 LDRA $0é6 on prend l| È 
53 * ROUTINE D'ERREURS D’APPLESOFT * a longueur... ie 
54 xx%x xx RENE DE DE DEEE DE ED EE EE EX EEE XX 106 JSR $E452 ...et on d FE 
35 emande de la place en memoire 54 
56 PLA 107 ré 
57 TAY 108 LDX #<$200 = 
58 PLA 109 LDY #>$200 le buffer 1] 
39 LDX +$DF retablit 1] clavier contient notre chaîne, 
e pointeur de pile 110 JSR $ESE2 on la depl 
60 TXS ace la ou on a trouve de la place 
61 PHA 111 
62 TYA 112 LDY 4 
63 PHA 113 LDA +06 on place s« 
64 RTS a longueur... ° 
se 114 STA (#$83),Y  ...dans le 
ÉÉ ERKKKEREEEREEEÉEREREEEXÉÉREERN REX descripteur 
67 * ROUTINE DE SAISIE PAR ‘INPUT’ *# 115 INY 
ÉB #XXX XX RONHENONHH HD DE NEED DE DE DE DE DE DE DE DE DE EEE 1ié LDA $6F ainsi que 
67 son adresse de stockage 
70 CMP  H$BE toKken de G 117 STA (583) ,Y 
ET? 118 INY 
71 BNE INPUT non 119 LDA +$éF+1 
72 JSR #$00B1 lit le car 120 STA (+583) ,Y 
actere suivant 121 RTS ; c’est fini! 
73 JSR $DFE3 cherche ou 122 
cree la variable, fixe $83 123 ##%x% 3x4 2x 4 226 EEE EEE NE DD N EEE N 
74 PHA 124 x PATCH DU DOS 3.3 POUR LECTURE * 
75 TYA 125 #32 22 62 REX EN DE DEDE EX E EE E X 
76 PHA 126 








127 LDA  H#$4C ‘jmp” init blie" le parametre L d’un fichier. 
ialise le patch ue 
128 STA $22B7 146 STA #$2Â6C ...a chaqu 
129 LDA #H#<P e erreur, même interceptee par 0 
130 STA $22B7+1 NERR 
131 LDA  #>P 147 LDA $22BA+1 11 faut do 
132 STA $22B7+2 nc lui rappeler si... 
133 LDA $2A6C sauvegarde 148 STA $2A6C+1 ...on ne v 
les valeurs de longueur d’enrgt. eut pas constamment reouvrir le fi 
134 STA $22BA chier 
135 LDA $2A46C+1 149 JMP  $22BC 
1346 STA $22BA+i 150 
137 LDA #H<Q et patch p 151 FLAG‘*EOF DFB O0 
our fin de fichier 152 Q LDA #1 
138 STA $2CB9 153 STA FLAG'EOF indique fi 
139 LDA #>Q n de fichier Cet non donnee nulle) 
140 STA $2CB9+1 sn à 
141 LDA #0 154 JMP  $336F ...-part en 
142 STA FLAG‘EOF END OF DATA intercepte par ONERR 
143 RTS GOTO 
144 155 
145 P LDA $22BA le dos “ou 156 END 
4 300.3E2 0348- 48 20 6C DD 20 BE DE 20 0340- A9 4C 80 B7 22 A9 CB 80 
is 0350- F8 Eé 86 06 68 85 84 48 0348- B8 22 A9 03 8D B9 22 AD 
FF 0300- D8 4C BD 1E D8 4C 81 1E 0358- 85 83 A2 00 20 OC FD 9D 0380- 6C 2A 8D BA 22 AD 6D 2A 
M” 0308- A9 60 8D E7 10 20 89 FE 0360- 00 02 20 ED FD E8 E4 06 0388- 8D BB 22 A9 DB 8D 89 2C 
; 0310- 20 93 FE 20 84 1D A9 A0 0368- 90 F2 B0O 14 A9 84 20 CO 03C0- A9 03 8D BA 2C A9 00 80 
Ë 0318- A2 00 À0 00 20 BD {E A? 0370- DE 20 E3 DF 20 6C D0 A2 03C8- DA 03 60 AD BA 22 80 6C 
ns 0320- 6C 8D E7 1D 20 89 FE 20 0378- 80 86 33 20 6ÀA FD 86 04 0300- 24 AD BB 22 8D 46D 2A 4C 
È 0328- 93 FE 20 AF 9A A9 00 85 0380- 20 39 D5 A5 06 20 52 E4 03D8- BC 22 00 A9 01 8D DA 03 
"  0330- 24 60 68 A8 68 Aé DF 97A 0388- A2 00 A0 02 20 E2 ES A0 03E0- 4C 6F 33 
“1 0338- 48 98 48 60 C9 BE DO 2C 0390- 00 AS 06 91 83 C8 AS 6F 
à 0340- 20 B1 00 20 E3 DF 48 98 0398- 91 93 C8 AS 70 91 83 60 
= 


& 


BONJOUR LES PRIX! 


NOS PRIX SONT F TTC 




















Carte langage 400 Speech card 320 

Carte 128 k ram 1550 Carte horloge 500 

Carte 80 colonnes 700 Joystick 165 
Interface série 520 Ventilateur 280 
Super série 1000 Contrôleur de drive 370 
Interface parallèle 380 Lecteur Disk “Slim” 1900 
Grappler +buffer 16k 1350 Moniteur vert 12” 950 
Carte modem Intégré 1085 Disquettes 5” 1/4 S.F./S.D. par 1 boîte 130/boîte 
Carte Z 80 410 Disquettes 5” 1/4 S.F./D.D. par 1 boîte 175/boîte 
Wildcard 400 


AU-DESSUS, NOUS CONSULTER. 


Carte bleue et eurocard acceptées 
Vente par correspondance: nous consulter. 


Computer 3 


3, rue Papillon 75009 Paris - Tél.: 523.51.15 


(métro Poissonnière) ouverture du lundi au samedi de 10 h à 19 h 30 
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Gérer la date ProDOS sans carte horloge 


Le système ProDOS, entre autres 
améliorations par rapport au DOS 
3.3, permet de dater les fichiers. Il 
prévoit, pour chacun d'entre eux, 
une date de création et une date de 
modification. Cette datation se fait 
automatiquement si l'Apple possède 
une carte horloge; malheureusement, 
rien n’est prévu pour ceux qui n'en 
ont pas et rien n’est plus désagréable 
que d’avoir des fichiers datés de NO- 
DATE... 


Heureusement, Apple a bien docu- 
menté l'emplacement et le format de 
la date du système; la date est sto- 
ckée sur 2 octets, en 49040 — 
49041 ($BF90 — $BF91). Une pre- 
mière solution consiste à mettre, soi- 
même, la date à jour. 


Démarche à suivre 


— Muitiplier le numéro du mois par 
32 


— Soustraire 256 si le résuliat obtenu 
est strictement supérieur à 255 (ce 
qui se produit à partir du mois 
d'août). 

— Ajouter à ce résultat le jour du 
mois; on obtient alors un premier 
nombre A. 

— Muitiplier l’année par 2 et ajouter 
1 si on a dû soustraire 256 à A: on 
obtient un deuxième nombre B. 

— Îl n'y a plus qu'à POKEr les nom- 
bres trouvés aux bonnes adresses ou 
les saisir sous le moniteur (si l’on 
préfère convertir en hexa...). 
Exemple : le calcul, pour la date du 
21 décembre 1984, s'effectuera 
comme suit : 

À = 32 x 12 = 384. Il est supérieur 
à 255 et devient donc 

À = 384 - 256 = 128. Cette opéra- 
tion faite, on lui ajoute le jour. 

À = 128 +21 = 149. 

À étant trouvé on peut calculer B. 

B = 84 x 2 + 1 = 169. 

Nous arrivons à la dernière étape. 
POKE 49040,149 

POKE 49041,169 

ou encore : 

CALL-151 

BF90: 95 A9 

3D0G 


C'est peut-être fastidieux, mais c’est 
efficace. 


La deuxième solution consiste à em- 
ployer un utilitaire, comme celui que 
nous vous proposons ici, qui réalise 
la même chose. Mieux encore, il 
garde en mémoire la dernière date 
entrée et permet de la modifier. 


SOURCE FILE: DATE2.SCE 
0000: 1 
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Grâce aux flèches gauche et droite 
on modifie le jour, utilisées avec 
Pomme Pleine” on modifie le mois: 
l'année est changée automatique- 
ment (le passage de décembre à jan- 
vier entraîne une incrémentation et 
celui de janvier à décembre une dé- 
crémentation ); enfin la date affichée 
est acceptée par RETURN. 

En faisant le catalogue, on peut 
connaître la date de la dernière utili- 
sation d’un disque (puisqu'elle est 
stockée dans la directory comme 
date de modification du programme 
DATE). 

Le programme proposé peut être uti- 
lisé par la commande —DATE (smart 
RUN). Il est peut-être plus simple de 
l'inclure dans un programme STAR- 
TUP de manière à ce qu'il s'exécute 
automatiquement, en prenant garde 
de l’appeler sous la forme : 

PRINT CHR$(4);'-DATE” 

si on tient à avoir la vraie date (celle 
de modification de DATE). En effet, 
pour économiser les accès disque et 
la place mémoire, le programme uti- 
lise la table de paramètres du dernier 
programme auquel ProDOS a ac- 
cédé. 


Appel de ProDOS en 
langage machine 


L'utilisation des routines ProDOS est 
relativement simple par rapport au 
DOS 3.3 du fait qu'Apple à prévu 
une procédure et un point d'entrée 
uniques par un appel au Machine 
Language Interface (MLI). Les seules 
données à fournir sont: un code 
d'opération et l'adresse de la table 
des paramètres adaptée à cette opé- 
ration. 

JSR $BFO0 

DFB CodeOp 

DW Adr.Par 


Dans notre problème, on pourrait 
utiliser les codes suivants : 

$C4: GET — FILE — INFO retour- 
nant les 15 paramètres définissant le 
fichier dans la directory 

$C3: SET — FILE — INFO réécri- 
vant les dits paramètres (à l'exclusion 
de ceux concernant la création évi- 
demment). 


Mais pour économiser de la place 
mémoire, de manière à ce que le 
programme tienne dans la zone 
calme de la page 3, on peut aussi 
utiliser l'accès à ProDOS contenu 
dans la ‘page globale’ du Système 


0000: 


EHKKEHEELEREÉÉEXXXEXXX 
RÉRHE RIRE XIE EEE EN E NÉE 


0000: 


François Sermier 


Basic (page $BE). En effet, GOSYS- 
TEM utilise une table prédéfinie en 
page globale, dans laquelle on lit ou 
écrit les informations souhaitées: il ne 
reste plus qu'à charger le code opé- 
ration dans l’accumulateur et à appe- 
ler GOSYSTEM. De plus, comme on 
vient de charger DATE pour l’exécu- 
ter, cette table contient, avant même 
l'exécution de la première instruction 
du programme, les informations 
concernant le programme DATE. 
Grande économie de moyens ! 


Le programme DATE 


Il se décompose en trois blocs : 

e Lignes 31-45 : récupération de la 
date comme expliqué ci-dessus: 
décomposition en jour, mois et 
année, stockés aux adresses 9, 8, 
7 ainsi que dans les registres X, Y, 


e Lignes 48-109 : boucle principale; 
— 48-69 : affichage de la date en uti- 
lisant la routine LINPRT, de l’inter- 
préteur Basic, qui affiche en décimal 
le nombre hexadécimal dont l’octet 
de poids fort est en À et l’octet de 
poids faible en Y (c’est la routine qui 
affiche les numéros de ligne Basic). 

— 70-109: saisie d’une touche au 
clavier. Si Pomme Pleine” est en- 
foncée, on modifie le mois, l’incré- 
mentation ou la décrémentation se 
faisant par les flèches droite et gau- 
che (pour la flèche droite, on a prévu 
l'affichage en 40 ou 80 colonnes : les 
codes utilisés sont différents). Les vé- 
rifications de date sont très simples : 
jour compris entre 1 et 31 quel que 
soit le mois. Attention au 31 février ! 
On quitte la boucle par RETURN. 

— 112-132: assemblage des octets 
de DATE, stockage dans la date du 
Système et dans la table de paramè- 
tres puis appel de GOSYSTEM pour 
écrire ces informations dans la direc- 
tory. 

Remarque : on ne donne pas le nom 
du fichier utilisé! En cas d'erreur, 
l’interpréteur Basic affiche le message 
correspondant. Si l'erreur MLI ne 
correspond à aucun message Basic, 
on récupère une [/O ERROR. 


Bibliographie : 

ProDOS Technical Reference Manual 
(APPLE) et Beneath Apple ProDOS 
de D.Worth et P.Lechner (Quality 
Software). 
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ns carte horloge * 033C:68 65 PLA 
0000: 4 * mise 9 jour par 033D:A8 66 TAY 
&— et -> * 033E:88 67 DEY 
0000: 5 x 033F:10 E4 68 BPL  PRI 
* 0341: 69 * 
0000: É HR DE DE DE DE DEEE EE EX 0341:20 OC FD 70 JSR RDKEY 
ÉÉLLLLSLLLILISLL LS SES SE) 0344:Â6 09 71 LDX JJ 
0000: 7 * 1346:44 08 72 LDY MM 
0007: 8 AA EQU #7 1348:C9 95 73 CMP. H$9S 
0008: 9 MM EQU #8 134A:F0 04 74 BEQ ACCROIT 
0009: 10 JyJ EQU #9 234C:C9 A0 75 CMP ##$A0 
0000: 11 * 
BEO9: 12 ERROUT EQU #8E09 034E:D0 1F 76 BNE  DECROIT 
BE70 : 13 GOSYSTEM EQU $BE70 0350:AD 62 CO 77 ACCROIT LDA PDLI 
BEB4: 14 SSGINFO EQU $BEB4 0353:30 07 78 BMI  ACRMOIS 
BEBE : 15 FIMDATE EQU $BEBE 0355:E8 79 INX 
BF 90 : 16 DATE EQU #$8F970 0356:E0 20 80 CPX #32 
0000: 17 * 0358:30 BA 81 BMI LOOP 
CO62: 18 PDLI EQU #$Cc062 0354:42 01 82 LDX #1 
DBSC : 19 OUTDO EQU $DB5C 035C:C8 83 ACRMOIS INY 
ED24: 20 LINPRT EQU $ED24 035D:C0 00 84 CPY #13 
FCiA: 21 UP EQU #$FCiA 035F:30 B3 85 BMI LOOP 
FC9C: 22 CLREOL EQU $FC9C 0361:A0 O1 86 LDY #1 
FDOC: 23 RDKEY  EQU $FDOC 0363:E6 07 87 INC AA 
FDSE : 24 CROUT  EQU #$FD8E 0365:A5 07 88 LDA AA 
0000: 25 * 0367:C9 64 89 CMP #100 
00C3: 26 SETINFO EQU $C3 0369:30 A9 90 BMI LOOP 
0007: 27 SETPAR EQU $07 036B:A9 00 ç1 LDA HO 
0000: 28 #4 MOOD DEN EE XX € 036D:85 07 92 STA AA 
étuis 036F : 93 * 
——--- NEXT OBJECT FILE NAME IS DATE2.SCE. 0346F:C9 88 94 DECROIT CMP H$88 
08J0 0371:D0 17 95 BNE  ENDLOOP 
0300: 29 ORG  #300 0373:AD 62 CO 96 LDA PDLI 
0300: 30 *+#2.# 2 26 26 26 EN NE NE EN € € 0376:30 05 97 BMI DECMOIS 
ad 0378:CA 98 DEX 
0300:AD BF BE 31 LDA FIMDATE+I 0379:D0 99 99 BNE LOOP 
vsoss te 32 LER à 037B:A2 1F 100 LDX 431 
DD* rs 07 53 ARS 0370:88 101 DECMOIS DEY 
0306:AD BE BE 34 LDA FIMDATE 037E:D0 94 102 BNE  LOOP 
nt "1 A 0380:A0 0C 103 LDY #12 
COURS = RER 0382:Cé 07 104 DEC À 
paf = RER 0384:10 &E 105 BPL  LOOP 
Lane rA ie LEE à 0386:A7 63 106 LDA #99 
Doopirn A Le 0388:85 07 107 STA AA 
Se 2. ER 038A:C? 80 108 ENDLOOP CMP  H$8D 
RARE st La 038C:D0 86 109 BNE  LOOP 
0310:68 42 PLA 028€: 110 # 
0311:29 1F 43 AND  HS$1F 038E: 111 * 
0313:4A 44 TAX 038E:98 112 TYA 
0314: 45 * 038F:0A 113 ASL À 
0314: qé * 0390:0A 114 ASL A 
0314:86 09 47 LOOP STX JJ 0391:0A 115 ASL A 
0316:84 08 48 STY MM 0392:04 116 ASL À 
0318:20 9C FC 49 JSR CLREOL 0393:0À 117 ASL À 
031B:20 &E FD 50 JSR  CROUT 0394:05 09 118 ORA JJ 
031E:20 14 FC 51 JSR UP 0396:8D 90 BF 119 STA DATE 
0321:A0 02 52 LDY #2 0399:80 BE BE 120 STA FIMDATE 
0323:D0 05 53 BNE PR2 039C:A5 07 121 LDA AA 
0325:A49 2D 54 PRI LDA  #$2D 039E :2A 122 ROL À 
0327:20 SC DB 55 JSR OUTDO 039F:80 91 BF 123 STA DATE+1I 
0324:Bé6 07 Sé PR2 LDX AA,Y 0342:8D BF BE 124 STA FIMDATE+1 
032C:E0 04 57 CPX #10 0345: 125 * 
032E:10 05 58 BPL PR3 03A5:A9 07 126 LDA  HSETPAR 
0330:A9 30 59 LDA  H$30 03A7:8D B4 BE 127 STA SSGINFO 
0332:20 SC DB 60 JSR  OUTDO 03AA:A9 C3 128 LDA  HSETINFO 
0325:98 61 PR3 TYA O3AC:20 70 BE 129 JSR GOSYSTEM 
0336:48 62 PHA 034F:90 03 130 BCC OK 
0337:A9 00 63 LDA #0 0381:20 09 BE 131 JSR  ERROUT 
0339:20 24 ED 64 JSR LINPRT 0384:60 132 OK RTS 
0300- AD BF BE 4A 85 07 AD BE 0340- E4 20 OC FD A6 09 A4 08 0380- A0 OC Cé 07 10 8E A9 63 
0308- BE 48 64 4A 4A 4 4A À8 0348- C9 95 F0 04 C9 AO D0 1F 0388- 85 07 C7 80 D0 86 98 OA 
0310- 68 29 1F A 846 09 84 08 0350- AD 62 CO 30 07 E8 EO 20 03790- 04 0A 0À OA 05 09 8D 90 
0318- 20 9C FC 20 8E FD 20 1A 0358- 30 BA A2 01 C8 CO 0D 30 0398- BF 80 BE BE AS 07 2A 8D 
0320- FC A0 02 DO 05 A9 2D 20 0360- B3 A0 01 Eé 07 AS 07 C9 03A0- 91 BF 80 BF A9 07 80 
0328- SC DB Bé 07 EO 0A 10 05 0368- 64 30 A9 A9 00 85 07 C9 03A48- B4 BE A9 C3 70 BE 90 
0330- A9 30 20 SC DB 98 48 A7 0370- 88 DO 17 AD 62 CO 30 05 0380- 03 20 09 BE 
0338- 00 20 24 ED 68 A8 88 10 0378- CA D0 99 A2 1F 88 D0 94 
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Votre Epson en mode proportionnel 


Les imprimantes Epson sont sûre- 
ment les plus vendues pour un sys- 
tème Apple II (aujourd'hui talonnées, 
je crois, par l'Imagewriter), Mais, à 
part la plus performante (et chère !) 
FX-80, si je suis bien informé, au- 
cune Epson ne sait proportionner ses 
lettres. Si vous en possédez une. 
vous direz certainement : ‘elles font 
bien d’autres choses !”. Certes, mais 
à présent, vous n'aurez plus besoin 
de tenir une polémique avec votre 
voisin qui possède une imprimante 
proportionnelle pour savoir laquelle 
est la meilleure. Grâce au pro- 
gramme que je vous propose ici, 
vous obtiendrez, moyennant une 
perte de 1,75K de mémoire vive, un 
mode proportionnel sur votre Epson 
graphique. Parmi ces imprimantes fi- 
gurent tous les MX-type Ill, plus la 
RX-80 (que je possède). D'autres 
pourront éventuellement être utili- 
sées, moyennant une modification 
des codes d'initialisation du mode 
graphique double densité. Si votre 
imprimante n’a pas de double den- 
sité, on peut quand même tourner la 
difficulté en modifiant, d'une part, les 
codes à imprimer, et, d'autre part, 
PROP.DEF pour les proportions 
“vertical / horizontal” en tenant 
compte du nombre d'aiguilles de la 
tête. 


Grandes lignes de 
fonctionnement 


Une grande partie des 1792 octets 
occupés est prise par la définition des 
caractères, sous une forme que j'ex- 
pliquerai plus loin. Un jeu de caractè- 
res “standards” est inclus, mais le 
programme PROP.DEF permet de 
modifier ces définitions, dont l'en- 
semble ne devra toutefois pas dépas- 
ser l'adresse $9500, soit environ 
1280 octets. Avec le jeu standard, 
252 octets restent libres. Cette défini- 
tion se scinde en deux parties: la 
partie index et la partie des codes à 
passer directement à l'imprimante. 


Le programme lui-même ne fait que 
291 octets, à partir de l'adresse 
$8F00. I! se compose d'une phase 
d'initialisation, de la routine utilisée 
par l’ampersand (&). la routine d'en- 
trée des caractères à imprimer. et 
enfin la routine d'impression lors 
d'un retour chariot ou de saturation 
du buffer (sans retour chariot ni saut 
de ligne dans ce dernier cas). L'en- 
trée des caractères pour impression 
proportionnelle peut se faire de deux 
façons : par &. ou par déviation du 
vecteur CSWL du DOS. La première 
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possibilité est offerte par défaut, et la 
seconde peut être utilisée grâce au 
petit module nommé PREPROP (re- 
logeable et prenant 59 octets), qui 
sauve les registres internes avant de 
sauter directement dans la routine 
d'entrée de PROP. Le mode opéra- 
toire devient alors similaire à un 
PR#1 du DOS. 


Principe de codage 


Le codage des caractères pour le 
module PROP est assez simple : il 
s'agit de codes à envoyer directe- 
ment à l'imprimante. Le manuel de 
votre Epson donne des explications 
assez claires et je ne ferai donc qu’un 
bref résumé. 

La tête d'impression est composée 
de 9 aiguilles disposées verticale- 
ment. Le mode graphique consiste 
alors à imprimer un point à la posi- 
tion de chaque bit à 1. On associe 
ainsi les bits d'un octet aux aiguilles 
de la tête. Comme un octet ne fait 
que huit bits, il est clair que l’une des 
aiguilles reste inactive : c'est la plus 
basse. On ne peut donc avoir que 8 
points verticaux. Toutefois, en ayant 
recours à des sauts de lignes bien 
dosés, on peut faire arriver la tête 
d'impression juste en-dessous de la 
ligne précédente, créant ainsi une 
continuité verticale et une matrice 
plus grande. Mais pour le moment, 
ce n'est pas ce qui nous intéresse. 
Prenons l'exemple de l'impression du 
code $A5, 10100101 en binaire. 
Ceci nous donne sur papier : 


1 x (bit à 1 = un point) 


mOmOOmO 


Voilà pour le format primaire des 
octets qui forment les codes des ca- 
ractères. Cependant, PROP utilise un 
système d'index pour trouver rapide- 
ment les codes du caractère désiré. 
Cet index constitue la première partie 
des codes et occupe 192 octets. Il 
contient les adresses des longueurs 
des codes (à partir du début de l'in- 
dex, sur 2 octets) Voyons alors 
comment un caractère est codé: 
chaque groupe de codes à envoyer à 
l'imprimante est précédé d'un octet 
indiquant la longueur des codes. qui 
arrivent ensuite dans l'ordre de sor- 
tie. Tout cela . bien rangé. représente 
993 octets pour le jeu de caractères 
standard. index compris. 


Thierry Han 


Utilisation 


Pour mettre en route PROP, il suffit 
de faire un BRUN ou un CALL 
36608 après BLOAD. L'instruction & 
est initialisée. Pour utiliser PRE- 
PROP, il suffit de faire un autre 
BRUN ou CALL 768 après le char- 
gement de PROP et de PREPROP. 
Un CALL 802 (ou CALL ‘adresse 
de chargement” + 34) déconnectera 
PROP. Pour PREPROP qui agit 
comme un PR#1, il suffit de faire un 
PRINT de ce que l’on veut imprimer. 
Pour &, il faut assigner une chaîne 
puis faire : 

& chaîne$ ou & chaînef, 

selon que l’on veut ou non effectuer 
un saut de ligne. 


Par ailleurs, un & seul fera imprimer 
tout ce que l’on avait fait entrer dans 
le buffer (avec & chaînef:). S'il n'y a 
rien, seul un saut de ligne sera effec- 
tué. Notez que si chaîne$ contient un 
retour chariot (Ascii 13), l'impression, 
puis le saut de ligne seront effectués, 
même si un point-virgule est utilisé. 
Les caractères suivant le retour cha- 
riot seront traités normalement. 


Note importante: ne faites surtout 
pas FP seul avec PROP en mémoire. 
Ce FP remet en place la HIMEM et 
les variables alphanumériques vien- 
dront écraser PROP après un net- 
toyage de la mémoire. Faites donc 
un NEW au lieu de FP, ou faites sui- 
vre le FP par un HIMEM:36608. 


Définition des caractères 


Si vous aimez le jeu de caractères 
standard fourni, il n'y a aucun besoin 


d'utiliser PROP.DÉF. programme 
Basic de définition des caractères. 
Dans le cas contraire, PROP.DEF 


vous demandera d'abord le nom du 
fichier de caractères à éditer (vous 
pouvez en effet sauvegarder diffé- 
rents jeux de caractères sous des 
noms différents). Un RETURN à vide 
indique au programme de travailler 
sur le fichier actuellemen: en mé- 
moire, ce qui suppose bien sûr que 
celui-ci s'y trouve effectivement. Il 
faut obligatoirement travailler à partir 
d'un jeu existant, donc à partir du 
jeu standard pour la toute première 
édition. 

Vous devrez ensuite préciser s'il s'agit 
d'un Module (routines d'impression 
plus codes) ou simplement d'un fi- 
chier Codes. Dans ce dernier cas. 
vous ne pourrez pas essayer directe- 
ment les caractères créés mais les 
principes de définition restent les 
mêmes (voir plus loin la méthode de 
fusion entre les routines et les codes). 
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Lorsque les données d'identification 
du fichier sont fournies, le pro- 
gramme décode le jeu de caractères 
en mémoire, puis apparaissent une 
grille HGR et 4 lignes de commande. 
Pour éditer un caractère sur la grille, 
il suffit de taper ce caractére. Quel- 
ques touches de fonction sont pré- 
vues pour pallier l'absence de cer- 
tains caractères sur le clavier de 
l'Apple II+ : 


e CTRL-B permet de basculer entre 
les majuscules (MI=0 dans les 
lignes de commandes) et les mi- 
nuscules (MI=1) 

e CTRL-I correspond au caractère 
trait soulignant” (Ascii 95) en 
majuscule 

e CTRL-O correspond au caractère 
"[” en minuscule 

e CTRL-P correspond au caractère 
"slash inverse” en minuscule 


Une fois entrée, la lettre s'affiche en 
gros points sur l'écran. Pour position- 
ner le curseur”, vous devez indiquer 
la position horizontale (1 chiffre de 0 
à 9) puis la position verticale (un 
chiffre de 1 à 8). Ensuite, la frappe 
de la touche “0” change l'état du 
point à l'endroit du curseur : il l'al- 
lume s'il était éteint et inversement. 
A ce stade, toute autre touche que 0 
laisse le point inchangé. 

En ce qui concerne la position hori- 
zontale, il n’est pas possible d'attein- 
dre tous les points d'une ligne au 
moyen des seuls chiffres 0 à 9. Si 
vous voulez modifier un point situé 
dans une position intermédiaire, pla- 
cez tout d'abord le curseur sur le 
point situé à gauche de votre objectif 
et laissez-le inchangé. Tapez ensuite 
la "flèche à droite” en réponse à la 
demande de position horizontale et 
cela vous amènera à l'endroit voulu. 
Par exemple, le troisième point d'une 
ligne n’est pas accessible directement 
(le deuxième correspond à la posi- 
tion horizontale 1 et le quatrième à la 
position 2); placez vous alors sur la 
position 1 et la ‘flèche à droite” vous 
placera ensuite sur le troisième point. 


Si vous possédez un joystick ou deux 
paddles, vous pouvez remplacer les 
lignes 4000 à 4050 du programme 
PROP.DEF par les lignes listées plus 
loin sous le nom ‘Version Paddles”. 
Dans ce cas, le déplacement est 


donné par les poignées et l’un des 
boutons permet de modifier l'état 
d'un point à l'endroit du ”curseur”. 


Les lettres sont affichées en matrices 
de points, qui reproduisent à l'écran 
très fidèlement ce qui sera imprimé 
sur papier. Pour les techniciens des 
Epson, je précise que l'impression se 
fait en double densité, mais pas en 
vitesse double, ce qui confère à ces 
caractères proportionnels une qualité 
d'impression supérieure. Bref, vous 
dessinez sur l'écran ce que vous vou- 
driez voir sur papier et vous pouvez 
valider votre création par RETURN. 
Sinon, vous pouvez recommencer en 
appuyant sur ESC. 


Si vous appuyez sur ESC lors de la 
demande du caractère à éditer, et si 
vous avez un module en mémoire (et 
non seulement un fichier codes) vous 
aurez droit à une impression de tous 
les caractères disponibles (Asci 32 à 
127). Par ailleurs, un RETURN au 
même niveau provoque le codage 
des données stockées dans les ta- 
bleaux du Basic en une forme qui 
sera POKée directement dans la 
table qu'utilise PROP. Si vous ne 
voulez toutefois pas enregistrer sur 
disquette, entrez un RETURN à vide 
à la demande du nom de sauve- 
garde. Ce codage est nécessaire pour 
pouvoir essayer le nouveau jeu édité. 
Si vous voulez stocker ce nouveau 
jeu sur disquette, il suffit d'entrer un 
nom, de préférence différent de tous 
ceux qui sont présents sur la dis- 
quette. Après cela, vous pouvez ter- 
miner avec ESC, ou continuer avec 
n'importe quelle autre touche. Notez 
qu'à la sauvegarde, tout le module 
sera ou non enregistré en même 
temps que les codes selon que vous 
aurez indiqué Mjodules ou Codes 
au début de l'édition. 

Si vous appuvez sur CTRL-S (sauve- 
garde) et non RETURN en lieu et 
place d'un caractère à éditer, le pro- 
gramme agira comme s'il avait dé- 
passé le stade de codage et deman- 
dera directement le nom du fichier à 
sauvegarder. Les changements effec- 
tués après le dernier codage seront 
ignorés, bien que présents dans les 
tableaux du Basic. 


Une dernière remarque : après l’ap- 
pui du RETURN qui valide un carac- 


tère, une fourchette s'affiche sur 
l'écran : elle indique les deux ‘“limi- 
tes” du caractère, à partir desquelles 
on ne trouve rien. Ce calcul est auto- 
matique. Si vous voulez inclure quel- 
ques espaces de plus que ces limites, 
appuyez sur CTRL-L (pour "Limi- 
tes”) au lieu de RETURN, et le pro- 
gramme vous demandera la colonne 
de départ et celle d'arrivée (1 à 16 
inclus). Si le caractère que vous édi- 
tez dégénère en ‘rien du tout”, le 
programme vous demandera la lar- 
geur de l’espace pour ce caractère. 
Les deux cas standards, l'espace et le 
code Ascii 127 (Del), prennent trois 
espaces. 


Les différents program- 
mes 


Le module PROP se nomme 
PROP.OBJ sur la disquette, et 
contient les codes standards. 

Par contre, PROP.PROG ne les 
contient pas: c'est le programme 
objet directement assemblé à partir 
de PROP.SCE, programme source 
(Dos Tool Kit). 

Les codes (index + codes) sont re- 
produits dans le fichier CODES, qui 
doit être chargé juste après la partie 
programme, soit à l'adresse $9023. 
Cette disposition a été adoptée pour 
ne pas devoir garder de longs codes 
dans le programme source. 
PROP.EXEC, fichier EXECutable, fait 
le nécessaire pour souder la partie 
programme et la partie codes afin de 
créer un fichier PROP.OBJ2, qui sera 
généré à partir des fichiers 
PROP.PROG (assemblage de 
PROP.SCE) et CODES (relogé). 


PREPROP.SCE et PREPROP.OBJ 
sont les programmes source et objet 
de PREPROP. 

PROP.DEF est le programme Apple- 
soft qui édite les jeux de caractères 
pour PROP. Enfin, S.SHP contient la 
shape du point utilisé par 
PROP.DEF. 


À propos du Dos Tool Kit, si vous 
avez une Carte Langage, éditez vos 
programmes avec le disque virtuel de 
Michel Haag (Pom's 12); cela accé- 
lère beaucoup les lectures/écritures 
et, surtout, l'assemblage se fait très 
rapidement. 





ILIST :PROP .DEF OT 1,131 TO 1,140: NEXT 
1040 REM ENTREE, CONVERTION CONTROLS 

10 HIMEM: 36608: LOMEM: 146510 1050 HOME : VTAB 21: PRINT "RETURN POUR 
20 GOTO 9000 ENREGISTRER,":. PRINT "ESCAPE POUR 
990 REM CADRE ESSAYER.": PRINT "CARACTERE (MI="M 
1000 HOME : HGR : HCOLOR= 3: POKE 34,20: 1"): “3: GET R$ 

VTAB 21 . 1060 IF R$ CHR$ (15) THEN R$ =  CHRS# 
1010 FOR I = O TO 15: HPLOT H + I * H,0: (91): GOTO 1140 

HPLOT H + I * H,U # 8 + 2: NEXT 1070 IF R$ CHR$S (16) THEN R$ =  CHRS 
1020 FOR I = O TO 8: HPLOT Hi,1 + 1 # VU (92): GOTO 1140 

TO H # 16 + H1,1 # VU + 1: NEXT 1080 IF R$ CHR$S (9) THEN R$ = CHRS ( 
1030 FOR I = H TO H * 16 STEP H * 5: HPL 95): GOTO 1140 


AO 
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1085 
1090 


1100 
1110 


1120 


1130 
1140 


1150 
1155 


1160 
1990 
2000 


2010 
2020 


2030 
2040 
2050 
2990 
3000 
3010 
3020 


3990 
4000 


aûi0 


4030 


4031 
4032 


4034 
4040 


4041 


4042 


4043 


4050 


4060 
4070 


4071 


4080 
4090 


4100 


Pom's n° 16 


IF R$ = CHR$ (12) THEN 5000 

IF R$ = CHR$ (2) THEN MI = 1 - MI: 
PRINT : GOTO 1050 

IF R$ = CHR$ (13) THEN 6000 

IF R$ = CHR$ (27) AND T$ = "M" THE 
N 7000 

IF R$ = CHR$ (19) THEN 6040 

IF R$ € " " THEN PRINT : GOTO 1050 

INVERSE : IF MI = 1 AND ASC (R$) )» 

= 64 THEN RM$ = R$:R$ = CHRS « 

ASC CRM#) + 32): PRINT "MIN "RMS: : 
NORMAL : PRINT " ASCII " ASC 
(RS): GOTO 1160 

IF R$ > = "9" THEN PRINT "MAJ "; 

PRINT R$:;: NORMAL : PRINT " ASC 


II " ASC (RS) 

R = ASC (RS) - 32: 
R=R - 128 

REM DECODAGE À PARTIR DE LA MEMOIR 
E 

FOR C = 1 TO DCR) 

CX = PXCR,C) 


IF R > 127 THEN 


FOR I = 7 TO O STEP - 1: IF CX ) 
= 2 * 1 THEN CX = CX - 2 * I:G6X(C, 
7 — 1) = 1: GOTO 2040 

G2CC,7 - I) = 0 

NEXT 1,0 


FOR I = C TO 17: FOR J = O0 TO 7:GXK 
1,J) = 0: NEXT J,1 
REM DESSIN 


FOR I = 1 TO DCR): FOR J = 0 TO 7 
IF GXCI,J) = 1 THEN DRAUW 1 AT I * 
H,J # VU + V1 

NEXT J,1 

REM EDITION 

VTAB 24: HTAB 1: PRINT "PH : 0 À 9 
OU -> ";: IF PEEK ( - 16384) < 1 
28 THEN 4000 

K = PEEK { - 16384): POKE - 16368, 
O:KZ = K - 128: IF (KZ > 47 AND Kz 


< 58) OR KZ = 21 THEN 4032 
IF K > 139 THEN ON K - 139 GOTO 50 
00,5020: ON K = 155 GOTO 1000 
GOTO 4000 
IF KZ = 21 AND KX < 9 THEN COX = ZX 
+ INT CH / 8): GOTO 4041 
IF KZ = 21 THEN 4000 


KZ = KZ - 48:KX = KZ:CX = INT (KZ * 
255 / 153) + 1:2X = CX 
VTAB 24: HTAB 1: PRINT "PU : 1 A 8 
“3: IF PEEK € - 16384) « 
128 THEN 4041 
KZ = PEEK Ç - 16384) - 128: POKE - 
16368,0: IF KZ < 49 OR KZ > 56 TH 
EN 4641 
KZ = KZ - 48:CY = INT (KZ * 255 / 2 
88) 


XDRAW 1 AT CX # H,CY # VU + V1 
XDRAW 1 AT CX #% H,CY # VU + VI a” 
VTAB 24: HTAB 1: PRINT "O CHANGE LE 


POINT “33 IF PEEK (« - 16 
384) < 128 THEN 4070 
K = PEEK ( - 16384): POKE - 14368, 
O:KZ = K - 128: IF KZ < > 48 THEN 
4000 
FOR M = 0 TO 100: NEXT 


IF GXCCX,CY) = 0 THEN GÆ(CX,CY) = 1 
.t DRAW 1 AT CX * H,CY * VU + Ui: GO 


TO 4120 
GACCX,CY) = 0: XDRAW 1 AT CX * H,CY 
# VU + Ui: IF CX > 1 THEN IF GÆ(CX 


— 1,CY) = 1 THEN DRAW 1 AT CX * 


H = H,CY # U + Vi 


4110 


4120 
4990 
5000 


5005 
5010 
5020 


5030 


5040 
5050 
5060 
5070 


5080 
5090 


5100 
5110 
5990 
6000 


6010 


6020 
6030 
6040 
6050 
6060 


6070 


6080 
6090 
6100 
6110 
69790 
7060 
7010 
7020 
8770 
7000 


9005 


7010 


9020 


IF CX < 16 THEN IF GXCCX + 1,CY) = 
1 THEN DRAW 1 AT CX * H + H,CY * 
U + VI 
GOTO 4000 
REM CTRL-L 
INPUT "COLONNE DEBUT: ";D: INPUT "C 
OLONNE FIN: "3lil = L + 1 # CL <1 
6): IF D < 1 OR L > 16 OR L < D TH 
EN 5000 
GOTO 5060 
REM LECTURE ECRAN 
FOR C = 1 TO 16: FOR I = O0 TO 7: IF 
GÆCC,1) = O0 THEN NEXT !1,C: INPUT 
"LONGUEUR DES ESPACES: ":;L:D = 1: 
GOTO 5070 
1 = 9: NEXT 1:D = C: FOR C = 16 TO D 
STEP - 1:L = 0: FOR I = 0 TO 7: 
IF GXCC,I1) = O0 THEN NEXT I,C: GOT 
0 5050 
1 = 9: NEXT I 
L=cC 
HPLOT D * H,150 TO D * H,159 TO L * 
H,159 TO L * H,150 
FOR 11 = D TO L:I = I1 - D + 1:P%4CR 
1) = 0 # 
FOR J = 0 TO 7 
IF GA(11,7 - J) = 1 THEN PX(CR,I) = 
PACR,1D + 2 * J 
NEXT J,I1:DXCR) = I 
GOTO 1000 
REM CODAGE POUR MODULE PROP 
TA = IN + 192: FOR R = 0 TO 9S:R1 = 
R *# 2:TX = TA -— IN 
Ti = INT (TX / 256): POKE IN + Ri1,T 
X — Ti # 256: POKE 12 + R1,T1 
POKE TA,DXÆCR) 
FOR I = 1 TO DCR) 
POKE TA + I,PXCR,1): NEXT 
TA = TA + I: NEXT 
PRINT : INPUT "NOM OÙ FICHIER À ENR 
EGISTRER: ";F$: IF F$ = "" THEN 61 
00 
R$ = "C": IF T$ = "M" THEN PRINT "C 
)0ODES OÙ M)ODULE? “3: GET R$: PR 
INT R$ 
IF R$ = "C" THEN PRINT D$"BSAVE"FS$ 
" ,A"IN",L"TA = IN: GOTO 6100 
PRINT D$"BSAVE"F#$",A$8F00,L"TA - IN 
+ IN - 36608 
PRINT “PRESSEZ UNE TOUCHE.(CESC POUR 
FINIR)"3;: GET R$: IF R$ < > CHR 
$ (27) THEN 1000 
END 
REM ESC: ESSAI SUR IMPRIMANTE 
HOME : PRINT "ESSAI: ALLUMEZ L’IMPR 
IMANTE.": GET R$ 
R$ = "": FOR I = 32 TO 127:R$ = R$ + 
CHR$S CI): NEXT 
& R$: GOTO 1000 
REM  INITIALISATION 
TEXT : HOME : DIM PX(95,17),D%(95), 
_ 6%(17,7)3:D$ = CHR$ (4) 
H = 9iU = 16:U1 = INT (VU / 2) + 1:H 
1 = INT (CH / 2) + 1: REM DONNEES 
POUR LES PROPORTIONS H/U À L’ECRA 
N 
POKE 232,0: POKE 233,64: ROT= 0: SC 
ALE= 1! 
IF PEEK (16384) = 1 AND PEEK (163 


85) = 0 AND PEEK (16386) = 4 AND 
PEEK (16387) = 0 AND PEEK (16388 
) = 44 THEN 9040: REM TEST SI SHA 


PE PRESENT 





sis ie 


= 
Le 


1 


FAÈLRÈNS 


#3 








9030 PRINT D$"BLOADS,.SHP ,4$4000" 9150 TA = TA + I: PRINT CHR$ CR + 32) ;: 





9040 INPUT "NOM DE FICHIER À EDITER: ";F NEXT 
$: PRINT "M)ODULE OÙ C)ODES? ";: 9160 D$ = CHR$ (4): GOTO 1000: REM D$ E 
GET Th: PRINT T$ FFACE PAR CALL 36608 
9050 IF F$ = "" THEN PRINT "EN MEMOIRE. 
": GOTO 9070 
9060 PRINT D$"BLOAD"FS$ F 
9070 PRINT "DECODAGE:": IF T$ = "M" THEN Version Joystick 
CALL 36608 
9080 REM DECODAGE À PARTIR DES CODES ILIST 4000,4050 
9090 IF T$ = "C" THEN IN = PEEK (43634) 
+ PEEK (43635) *x 256: GOTO 9110 4000 CX = INT € PDL (0) / 17) # 1 
9100 IN = PEEK (36611) + PEEK (36612) * 4010 IF PEEK « - 164284) € 128 THEN 4040 
256 4020 K = VPEEK ( - 16384): POKE - 146368, 
9110 TA = IN + 192:12 = IN + 1 0 
9120 FOR R = 0 TO 95 4030 IF K > 139 THEN ON K - 139 GOTO 50 
9130 DXCR) = PEEK (TA) 00,5020: ON K = 155 GOTO 1000 
9140 FOR I = 1 TO DX(R)D):PXCR,1) = PEEK 4040 CY = INT € PDL (1) / 32) 
(TA + ID: NEXT 4050 XDRAW 1 AT EX * H,CY # VU + VI 
PROP.O0BJ 9038- 00 03 01 OP O1 QE O1 14 
9040- 01 19 01 22 01 24 01 30 
*2F00.9404 9048- 01 38 Q1 40 01 48 01 50 
9050- 01 58 01 60 01 68 O1 70 
8F00- 4C 05 8F 23 90 A9 4C 8D 9058- 01 73 01 76 01 7B 01 83 
8F08- F5 03 À9 26 8D Fé 03 A9 90640- 01 88 01 90 01 FA 01 A8 
8F10- 8F 8D F7 03 A9 00 85 73 9068- 01 B2 01 RC 01 Cé 01 DO 
8F18- 85 6F A9 8F 85 74 85 70 9070- 01 DA 01 E4 01 FO O1 Fé 
8F20- 20 B5 8F 4C F8 8F 20 B7 9078- O1 FF 01 0B 02 15 02 23 
8F28- 00 F0 35 20 E3 DF 20 6C 9080- 02 2F 02 3B 02 45 02 51 
8F30- DD 85 85 84 86 A0 00 B1 °9088- 02 5B 02 45 02 71 02 7B 
8F38- 85 85 1C C8 B1 85 85 10 S090- 02 89 02 97 02 À4 02 BO 
8F40- C9 B1 85 85 1E A0 00 Bi 9098- 02 BA 02 BF 02 C8 02 CD 
8F48- 1D 84 1B 20 66 8F Ad 1B S0A0- 02 D3 02 DD 02 ECO 02 Eñ 
8F50- C8 C4 1C DO F2 20 B7 00 F0A8- 02 F4 02 FC 02 046 03 OF 
8F58- C7 3B DO 04 20 Bi 00 60 90B0O- 03 146 03 1F 03 29 03 ?F 
8F40- À9 OD 20 46 8F 60 Àé 04 ?0BS- 03 35 03 30 03 43 03 51 
Le 8F68- 29 7F C9 OD FQ 3D 38 E9 P0CO0- 03 54 03 62 03 6B 03 74 
: 8F70- 20 90 F2 Où 9D 00 ?5 ER 90C2- 03 7C 03 84 03 8C 03 ?é 
l 8F78- 86 0é 20 01 90 A0 00 Bi S0D0- 03 A0 03 AE 03 B8S 03 C2 
: SF80- 08 18 69 02 85 FB 45 19 90D08- 93 CA 03 CF 03 Di 03 Dé 
É 8F88- 85 19 90 02 Es 1À ÀS FB POEO0- 03 DC 05 03 00 00 00 04 
! 8F90- 18 65 FC 85 FC 90 02 Eé SOEZB- 60 FA Fâ 60 04 E0 00 00 
5 8F98- FD ÀS FD C7 03 DO Cé ÀS POFO- E0 09 24 2C 38 48 A 2C 
SFA0- FC C9 BO BQ 04 Aé 04 DO 90F2- 28 68 48 07 20 52 S2 FF 
SFA8- BC FO 11 EO 00 FQ 64 20 9100- 44 48% 04 07 C2 C4 08 10 
8FBO- RC SF 20 13 90 A2 00 84 9108- 20 46 86 07 44 Aâ 92 Aâ 
SFB2- FC 8é FD 60 À9S 1B 20 1 9110- 44 Of 10 02 20 CO 03 3C 
SFCO- 90 À7 4C 20 14 90 ÀS5 197 9118- 42 81 03 81 42 3C 07 08 
SFC2- 20 14 90 ÀS5 14 20 1 70 9120- 24 1C 08 1C 24 08 07 08 
SFDO- A2 00 BD 00 55 20 01 90 91283- 08 08 3E 08 08 08 02 05 
8FD2- A9 00 20 14 90 20 14 90 9130- 06 07 08 08 08 08 08 08 
SFEO0- À8 B1 08 ÀS8 C8 834 07 A0 9138- 08 02 02 02 08 01 02 04 
SFES8- 01 B1 08 20 1A 90 C8 C4 9140- 08 10 20 40 80 07 38 44 
SFFO0- 07 DO F$ ES E4 06 D0Q D 9148- 82 82 82 44 38 05 22 42 
SFF8- A2 00 86 0é 86 197 84 1A 9150- FE 02 02 07 46 SA 92 92 
9000- 60 À8 B7 23 90 18 497 23 9158- 92 92 62 07 44 82 82 92 
5008- 85 08 C8 B9 23 970 69 90 9160- 92 92 6C 07 08 18 28 48 
9010- 85 097 60 À7 OÙ 20 iÀ 90 7148- 88 FE 08 07 E4 À2 À2 À2 
9018- À9 OÀ 2C Ci Ci 30 FB 8D 9170- A2 A2 9C 07 OC 12 32 S2 
9020- 90 CO 40 CO Q0 C4 00 C7 9178- 92 12 OC 07 80 82 84 ge 
9028- O0 CE 00 D8 00 EC 00 E2 9180- 90 A0 CO 07 4C 92 92 92 
9030- 00 F0 00 F3 00 F7 00 FB 9188- 92 92 6C 07 60 90 92 94 





FFSA QE ét cr: SSSSESSSSSSSSS 
20 Pom's n° 16 


91?0- 98 90 40 02 14 
7198- 16 04 10 28 44 
91A0- 14 14 14 14 14 
P1A8- 44 28 10 07 40 
71B0- 90 A0 40 09 38 
71ES- A À BEA 84 72 
71C0- Of 18 ÀS C8 88 
71C8- OA 0é 02 09 82 
91D0- 92 92 92 92 60 
71D8- 82 82 82 82 82 
91E0- 82 FE 92 82 82 
?1E8- 3C 09 82 FE 92 
91F0- 82 82 Cé 09 82 
91FS- 90 B& 80 80 Co 
9200- 82 82 82 82 92 
9208- 82 FE 92 10 10 
P210- 92 FE 62 05:52 
9218- 82 08 O4 02 0Z 
9220- FC 80 0B 82 FE 
79228- 28 44 44 82 82 
9230- FE 82 02 02 02 
9238- O0D 82 FE 82 40 
9240- 10 20 40 82 FE 
9248- FE 82 40 20 10 
9250- FE 82 0B 38 44 
9258- 82 82 82 892 44 
9260- FE 92 90 90 90 
9268- 0B 38 44 82 82 
9270- 84 SA 44 384 09 
9278- 90 90 78 94 92 
9280- 92 92 92 92 92 
9288- OR CO 80 80 80 
9290- 80 80 80 CO 09 
9298- 02 02 02 82 FC 
?2A0- CO A0 10 08 04 
9248- 10 A0 CO 80 00 
?92B0- OC 02 OC 30 0C 
92B8- CO 830 0C 82 Cé 
92C0- 10 10 28 28 Cé 
92C8- 80 CO CO 20 22 
?2D0- CO CO 80 07 C2 
92D8- 92 AZ C2 C2 8é 
92E0- 82 82 08 80 40 
92E8- 04 02 01 04 82 
92F0- 05 40 80 80 30 
92F8- 01 O1 O1 O1 01 


PROP.EXEC 
BLOADPROP . PROG 


AD=PEEK(36611)+PEEK(36612)x254 


14 02 15 9300- 02 CO 20 09 04 OA 24 24. 





82 07 14 9208- 24 24 24 1C 02 09 82 FC 
14 04 82 9310- 22 22 22 22 22 22 1C 07 
80 80 8 9318- 1C 22 22 22 22 22 12 09 
44 32 92 9320- 1C 22 22 22 22 22 A2 FC 
0D 02 O4 9328- 02 08 1C 24 2A 24 24 2A 
48 28 18 9330- 24 18 06 12 7E 92 92 92 
FE 92 92 9338- 40 08 18 24 25 25 25 25 
0? 38 44 9340- 1E 20 09 82 FE 12 20 20 
82 C4 07 9248- 20 22 1E 02 05 22 22 BE 
82 82 42 9350- 02 02 05 02 01 21 21 BE 
92 92 BA 9358- 07 82 FE OÀ 14 14 22 22 
FPE #2 92 9360- 05 82 82 FE 02 02 OD 22 
07 38 44 9368- 1E 22 20 20 22 1E 22 20 
F2 DE: 08 9370- 20 22 1E 02 08 22 1E 22 
10 10 10 9378- 20 20 22 1E 02 07 1C 22 
32 FE: 82 9380- 22 22 22 22 1C 08 21 1F 
82 82 82 9238- 25 24 24 24 24 18 08 18 
92 10 28 9390- 24 24 24 24 25 1F 21 07 
82 09 e2 92398- 22 1E 22 20 20 20 10 07 
2 02 Oé 9340- 12 24 24 24 24 24 24 07 
20 10 08 9248- 20 FC 22 22 22 22 04 09 
82 0B 82 93B0- 20 3C 22 02 02 02 22 3C 
08 04 82 9388- 22 09 20 30 28 04 02 04 
2 82 82 73C0- 28 30 20 0OD 20 30 28 04 
38 09 82 92C8- 02 04 08 04 02 04 28 30 
90 ?0 640 93D0- 20 09 22 22 14 14 08 14 
82 82 82 92D2- 14 22 22 09 20 21 31 0 
82 FE. ?2 93E0- 04 03 30 20 20 07 22 24 
62 07 é6é 93E8- 26 2% 32 32 22 04 10 6C 
92 92 CC 93F0- 82 82 01 FF 04 82 82 6C 
82 FE 82 93F3- 10 04 40 20 80 40 40 20 "a 
830 FC 82 9400- 03 00 00 00 00 : 5 
80 O0D 80 ES 
02 04 08 PREPROP.OBJ Es 
80 CO BO s 
02 0C BO #300.334 Es 
Cé 28 2e ï 
C$s 82 0B 0200- AD 53 AÂ 85 FE AD 54 AA Li 
1E 22 20 0308- 85 FF 20 58 FF BA CA BD + 
836 84 SA 0310- 00 01 18 67 21 8D 53 A 5 
04 FE 82 0318- ES BD 00 01 67 00 SD 54 
20 10 08 0320- AA 60 ÀS FE 8D 53 A9 A5 
2 82 FE 0328- FF SD 54 A4 60 20 44 FF 
40 07 01 0330- ÀS 45 20 66 8F 20 3F FF 
01 O1 o1 0338- 4C FE 00 


PRINT'"'BLOADCODES ,A"AD (Rem : il y a un C 4030- 2D 36 36 36 36 36 3F 3F 
TRL-D devant BLOAD) 4033- 2F 23F 2F 24 24 24 24 24 


BSAVEPROP.0BJ2,4#8F00 ,L$é00 
ET ee — 


S.SHP 
*4000.4077 


4000- 01 O0 04 00 2C 
4008- 2C 2D 36 24 5F 


Pom's n° 16 


36 3F 24 A068- SF 3F 2F 2F 1B 5€ 5€ 20 
3F 24 24 4070- 24 24 24 24 08 21 00 18 
A ER 


22 


PROP.SCE 


SOURCE FILE: PROP.SCE 
ES NEXT OBJECT FILE NAME IS PROP.SCE.0 


8F29:F0 35 Sé BEQ PRT 
3RIEN: IMPRESSION 

SF2B:20 E3 DF 57 JSR PTRGET 
3; TROUVE LE DESCRIPTEUR 

SF2E:20 6C DD 58 JSR CHKSTR 


3 SI NON-CHAINE, TYPE MISMATCH 


8F31:85 85 57 STA LAST 

8F33:84 8é 60 STY LAST+I 

8F35:40 00 61 LDY #0 

8F37:B1 85 62 LDA  CLAST),Y 
3 LONGUEUR 

8F397:85 1C 63 STA  LEN 

8F3B:C8 64 INY 

8F3C:B1 85 65 LDA  CLAST),Y 


;ET ADRESSE DE LA CHAINE 


BJ0O 
8F00: 1 ORG $8F00 
8F00: 2 HEURE HUE UE DENENE DE DE DE DEN 
PELLLLLSLES. 
8F00: 3 *xIMPRIMANTE PROPORTION 
NELLE 
8F00: 4 *EPSON-)>PROPORT I ONNEL 
8F00: 5 #*PAR:THIERRY HAN 
8F00 : 6 *DATE:3/5/1984 
8F00 : 7 #SYNTAXE : &CHAINES( 5) 
8F00 : CTI IIILISS LS SES LSSSSLSSSS 
ÉTLLLLLS SES) 
8F00: 9 ;D0S TOOL KIT 
8F00: 10 5 
0006 11 XREG EQU %$é 
0007: 12 YREG EQU #$7 
0008: 13 INP EQU #8 
0019: 14 TOTAL EQU #19 
3 LONGUEUR JUSQU‘A IMPRESSION 
001B: 15 SAVE EQU #$1B 
001C: 16 LEN EQU #$ic 
0010: 17 ADR EQU #10 
00FB: 13 AREG EQU $FB 
00FC: 19 TOTI EQU $FcC 
; LONGUEUR JUSQU'À CR 
9500: 20 BUFFER EQU +$9500 
8F00: 24 3 
006F : 22 STREND EQU $éF 
0073: 23 HIMEM EQU #$73 
00B1 : 24 CHRGET EQU #$Bi 
0087: 25 CHRGOT. EQU $B7 
0085: 26 LAST EQU +$85 
03F5: 27 AMPVEC EQU $3F5 
; VECTEUR & 
C1Ci: 23 BUSY EQU $Cici 
; POUR L' IMPRIMANTE 
C090: 29 DATA EQU +$Cc090 
DDéC : 30 CHKSTR EQU $DDéC 
DFE3: 31 PTRGET EQU $DFE3 
8F00:4C 05 8F 32 JMP  DEBUT 
8F03: 32°: 
8F03:23 90 34 DW INDEX 
; POUR PROP.DEF ET PROP.EXEC 
8F05: 835 :; 
S8F05S: 36 3: INITIALISATION 
8F05: 37 3 
8F05:49 4C 38 DEBUT LDA #H##$4C 
; JMP 
8F07:8D F5 03 39 STA  AMPVEC 
8FO0A:A9 26 40 LDA H>START 
8F0C:8D F6 03 41 STA AMPUEC+I 
8FOF:A9 8F 42 LDA  H#<START 
8F11:80 F7 03 43 STA  AMPUEC+2 
8F14:49 05 44 LDA  H#)>DEBUT 
8F16:85 73 45 STA  HIMEM 
8F18:85 6F 46 STA  STREND 
SFIiA:A7 8F 47 LDA  #H#<DEBUT 
8F1C:85 74 48 STA HIMEM+I 
8F1E:85 70 49 STA  STREND+1 
8F20:20 BS 8F 50 JSR RAZTOT 
8F23:4C F8 8F 51 JMP _ INIT 
8F26: 52 ; 
8F2é6: 53 ;DEBUT DE & 
8F2é6: 54 : 
8F26:20 B7 00 55 START JSR  CHRGOT 


8F3€:85 10 66 STA ADR 

8F40 :C8 67 INY 

8F41:B1 85 68 LDA (LAST),Y 

8F43:85 1E 69 STA ADR+1 

8F45:A0 00 70 LOY #0 

8F47: 71 3 

8F47:B1 10 72 LOOP LDA (ADR) ,Y 
; PREND CHAQUE CARACTERE 

8F49:84 1B 73 STY SAVE 
:DE LA CHAINE ET 

8F4B:20 66 8F 74 JSR PROP 
;L'ENVOIE À PROP 

8F4E:A4 1B 75 LDY SAVE 

8F50 :C8 76 INY 

8F51:C4 1C 77 CPY LEN 

8F53:D0 F2 78 BNE LOOP 

8F55:20 87 00 79 JSR  CHRGOT 

8F58:C9 3B 80 CMP  H$3B 
;POINT-UIRGULE 

8FSA:D0 04 81 BNE PRT 

8F5C:20 Bi 00 82 JSR  CHRGET 
: POUR INCREMENTER TXTPTR 

8FSF : 60 83 RTS 

8F60 : 84 ; 

8Fé0:A9 0D 85 PRT LDA HD 

8Fé2:20 66 8F  8é JSR  PROP 


;: FORCE IMPRESSION PAR SAUT DE LIG 


NE 
8F45 : 60 87 END RTS 
; POUR LES BRANCH 
8Féé: 88 ; 
8Féé6: 89 ROUTINE DE STOCKAGE D 
ANS BUFFER 

8Féé: 90 ; 
8Féé:A6 06 91 PROP LDX XREG 

; INDEX DANS BUFFER 
8F68:29 7F 92 AND  ##7F 
8FéA:C? 0D 93 CMP H$D . 

;CODE 13 PROVOQUE L’ IMPRESSION 
8FéC:F0 30 94 BEQ CR 

;ET SAUT DE LIGNE 
8F6E :38 95 SEC 
8FéF:E9 20 96 SBC #$20 
8F71:90 F2 97 BCC END 
8F73:0A 98 ASL A 


;AJUSTE POUR INDEXER 


8F74:9D 00 95 99 STA  BUFFER,X 
8F77:E8 100 INX 
8F78:8é6 Dé 101 STX XREG 
8F7A: 102 ; 
8F74:20 01 90 103 JSR GETADR 
SF7D:40 00 104 LDY #0 
8F7F:B81 08 105 LDA  CINP),Y 
; LONGUEUR DES CODES POUR LA LETTR 
E 
8F81:18 106 CLC 
8F82:67 02 107 ADC #2 
; DEUX ESPACES ENTRE LETTRES 


Pom's n° 16 


8F84:85 FB 108 STA AREG 
8F8é6:65 19 109 ADC TOTAL 
8F88:85 19 110 STA TOTAL 
8F84:90 02 iii BCC ADDTOT 
8F8C:Eé 1À 112 INC TOTAL+I 
SFSE : 113;;; 
SFSE:AS FB 114 ADDTOT LDA AREG 
8F90:18 115 CLC 
8F91:465 FC 116 ADC TOTI 
8F93:85 FC 117 STA TOTI 
8F95:90 02 118 BCC: TEST 
8F97:Eé FD 119 INC TOTI+1 
8F99: 120 ; 
8F99: 121 ;TESTE DEBORDEMENT 
8F99: 122 : 
8F99:A5 FD 123 TEST LDA TOTI+!i 
8F9B:C9 03 124 CMP  H3 
8F9D:D0 Cé 125 BNE END 
8FPF:AS FC 126 LDA TOTI 
8FA1:C9 B0O 127 CMP  #176 
: TOTAL 960 CODES/LIGNE 
8FA3:80 06 128 BCS CR 
8FAS : 129 ; 
8FAS : 130 ;TESTE FIN DE BUFFER 
SFAS : 131 ; 
8FAS:Âé6 0é 132 LDX XREG 
SFA7:D0 BC 133 BNE END 
SFA9:FQ 11 134 BEQ PRINT 
8FAB : 135 : 
8FAB : 136 IMPRESSION + SAUT DE 
LIGNE + RAZ TOTAL 
8FAB: 137 3 
8FAB:E0 00 138 CR CPX #0 
8FAD:F0 64 139 BEQ CROUT 
:RIEN, JUSTE CR 
8FAF:20 BC 8F 140 JSR PRINT 
8FB2:20 13 90 141 JSR CROUT 
8FBS:A2 00 142 RAZTOT LDX #0 
8FB7:86 FC 143 STX TOTI 
8FB9:86 FD 144 STX TOTI+1 
8FBB : 60 145 RTS 
8FBC: 146 ; 
8FBC: 147 ; IMPRIME BUFFER (SANS 
SAUT DE LIGNE) 
8FBC : 148 ; 
8FBC:A9 1B 149 PRINT LDA #$1B 
> CODES DE L'’IMPRIMANTE 
S8FBE:20 1 90 150 JSR COUT 
: (MODE GRAPHIQUE DOUBLE DENSITE) 
8FCi:A9 4C 151 LDA ##$4C 
SFC3:20 14 90 152 JSR COUT 
8FCé:AS 19 153 LDA TOTAL 
8FC8:20 14 90 154 JSR COUT 
8FCB:AS 1À 155 LDA TOTAL+1 
8FCD:20 14 90 156 JSR COUT 
8FD0:A2 00 157 LDX #0 
8FD2:BD 00 95 158 NEXTCHR LDA BUFFER,X 
: LETTRE À SORTIR 
SFD5:20 01 90 159 JSR GETADR 


8FD8:A7 00 160 LDA #0 
; DEUX ESPACES ENTRE LETTRES 
8FDA:20 1A 90 161 JSR COUT 
SFDD:20 14 90 142 JSR COUT 
8FE0 :A8 163 TAY 
8FE1:B1 08 164 LDA  CINP),Y 
; LONGUEUR DES CODES 
8FE3:48 165 TAY 
8FE4:c8 166 INY 
SFES:84 07 167 STY YREG 
SFE7:A0 O1 168 LOY #1 
SFE9:B1 08 167 NEXTBYT LDA CINP),Y 
; CODE À SORTIR 
8FEB:20 14 90 170 JSR COUT 
SFEE:C8 171 INY 
SFEF:C4 07 172 CPY  YREG 
8FF1:D0 Fé 173 BNE NEXTBYT 
8FF3:E8 174 INX 
8FF4:E4 0é 175 CPX XREG 
SFFé:D0 DA 176 BNE  NEXTCHR 
8FF8: 177 3 
8FF8: 178 ;RAZ DU BUFFER 
8FF8: 179 3 
8FF8:A2 00 180 INIT LDX #0 
SFFÂ:8é6 06 181 STX XREG 
8FFC:86 19 182 STX ,TOTAL 
8FFE:86 1A 183 STX TOTAL+I 
9000:60 184 RTS 
9001: 185 ; 
7001: 186 ; SOUS-ROUTINES 
9001: 187 ; 
7001:48 188 GETADR TAY 
; CHERCHE ADRESSE DES CODES 
9002:B9 23 90 189 LDA  INDEX,Y 
3À PARTIR DE LA TABLE INDEX 
9005:18 190 CLC 
90046:69 23 191 ADC  H)> INDEX 
9008:85 08 192 STA  INP 
: QUI POINTE EN "OFFSET" 
?004:C8 193 INY 
700B:89 23 70 194 LDA INDEX, Y 
900E:69 90 195 ADC  H<INDEX 
9010:85 09 196 STA  INP+1 
9012:60 197 RTS 
9013: 198 ; 
9013:49 0D 1979 CROUT  LDA #$D 
3; RETOUR CHARIOT 
9015:20 1A 90 200 JSR COUT 
9018:A9 0À 201 LDA H$A 
: ;ET SAUT DE LIGNE 
901A: 202 ; 
90\a:2c C1 Ci 203 COUT BIT BUSY 
; ENVOI DIRECT 
901D:30 FEy 204 BMI COUT 
;À L'’IMPRIMANTE 
901F:8D 90 CO 205 STA DATA 
9022:60 206 RTS 
9023: 207 ; 
9023: 208 ;TABLE DES INDEX 
9023: 209 ; 
‘9023: 210 INDEX EQU  * 


*x*xx SUCCESSFUL ASSEMBLY: NO ERRORS 


———————————————————————_—__________ 


PREPROP.SCE 


SOURCE FILE: PREPROP.SCE 
NEXT OBJECT FILE NAME IS PREPROP.SC 


E.0BJO 

0300: Î ORG +$300 

0300: 2 RÉREREÉEEEEERERENHÉÉÉÉ 
RÉHÉLEXEXEX 

0300: 3 *PREPROP:REVECTORISE C 
SUL 
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0300: 4 
0300: 5 
PROP 

0309: é 
ER 

0300: 7 
RÉRÉELEXER 

0300: 8 

AAS3 : 9 

SFéé: 10 


*POUR PROP 
*CALL768 POUR BRANCHER 


*CALL789 POUR DEBRANCH 
ER HEHEDE DE DE DE DEEE DE DE DE DE DEEE DEEE 


; 
CSUL 
PROP 


EQU $AAS3 
EQU $8Féé 


23 


24 


0045: 11 AREG EGU +45 031C:69 00 34 ADC  H#<PROPZ-I 
;DE SAVE CI+1 
O0FE : 12 COUTI EQU %$FE 031E:80 54 AA 35 STA  CSWL+1 
| 0321:60 36 RTS 
0322: 37 ; 
FF4û: 13 SAVE EQU $FFdA 0322: 38 ;DES-INIT: REMET L'’ANC 
FF3F: 14 RESTORE EQU $FF3F IEN 
FF58: 15 RETURN EQU #%FF58 0322: 39 ; 
0100: 16 STACK EQU #100 0222:AS FE 40 LDA COUTI 
0300: 17 ; 0324:8D 53 AA 41 STA CSUL 
0300: 18 3INIT PROP 0327:A5 FF 42 LDA COUTI+i 
0300: 19 ; 
0300:AD 53 AA 20 LDA CSUL 0327:8D 54 À 43 STA CSWL+1 
0303:85 FE 21 STA COUTI VRRCIE 44 RTS 
; SAUVEGARDE L'ANCIEN 0320: 45 ; 
0205:AD 54 AA 22 LDA CSUL+1 022D: 46 ;ROUTINE EXECUTEE AVAN 
0308:85 FF 23 STA COUTI+1 T PROP: 
030: 24 ; 0320: 47 ; SAUVE REGISTRES PUIS 
0304:20 58 FF 25 JSR RETURN RESTORE À LA FIN 
;: CHERCHE ADRESSE RELOGEE 0320: 48 ; 
030D:BA 26 ICI TSX 032D:20 44 FF 49 PROPZ JSR SAVE 
020E:CA 27 DEX 
030F:BD 00 01 28 LDA  STACK,X 0330:AS 45 50 LDA AREG 
0212:18 29 CLC : SAVE MODIFIE À 
0313:69 21 30 ADC H>PROPZ-I | 0332:20 66 8F  S1 JSR  PROP 
CI+! 0335:20 3F FF 52 JSR RESTORE 
0315:8D 53 AÀ 31 STA  CSWL 0338:4C FE 00 53 JMP  (COUT1) 
0318:E8 32 INX ;JUMP AU URAI COUT 
0319:BD 00 01 33 LDA  STACK,X 





Accès direct aux disquettes 


Guy d'Herbemont 


Dans le Pom's 10 nous était présenté 
un programme simple d'accès direct 
aux disquettes. Mais il y a plus sim- 
ple encore! La routine contenue 
dans la ligne 100 du programme 
proposé ici suffit en effet pour réali- 
ser ce type d'opérations. 


Le DOS assure lui même l'essentiel 
du travail en utilisant le buffer de 
256 octets commençant en 46267 
($B4BB) et l'appel à RWTS se fait 
en 45111, après entrée des paramè- 
tres aux endroits indiqués. 


Voici venue la fin du règne de la 
bande des quatre (I0B, table DCB, 
accumulateur et registre Y) sur 
RWTS, loyal serviteur scandalisé par 
les codes cachés... 


Nous devons la découverte de ces 
adresses à Bill Parker (Call 
A.P.PL.E. in Depth (N° 3), mais je 


démarche. En effet, après s'être in- 
quiété des dialogues avec le buffer, il 
a aussitôt succombé aux charmes de 
l'ampersand, pour aboutir finalement 
à deux excellents programmes, 
certes, mais relativement longs et 
dont l’un est en assembleur. 


Pour rester concis, et je l'espère utile, 
j'ai inclus la routine de la ligne 100 
dans un petit programme Applesoft 
qui affiche le contenu d'un secteur 
choisi de deux manières : 


e Affichage du code hexadécimal 
des 256 octets du buffer. Pour ce 
faire, l'appel au moniteur s'impose 
et le dialogue s'établit facilement 
avec la méthode de S.H.LAM 
(voir Recueil 1, page 94). 

e Affichage des caractères concaté- 
nés (ligne 40). Les lignes 60 et 70 
servent à modifier les caractères 
perturbateurs ou indésirables, tout 


qui s'affiche sous forme du damier 
(curseur de l'Apple //e) et permet 
notamment de retrouver dans la 
piste 17 ($11) la position des fi- 
chiers effacés que l’on souhaiterait 
récupérer. 


La table des codes hexadécimaux 
comportant 33 lignes, il pourrait être 
utile de prévoir sa sortie sur impri- 
mante. 

L'exploration du contenu des sec- 
teurs de leurs disquettes promet bien 
des surprises à ceux qui n'ont pas 
encore eu l’occasion de s’y attarder. 
La routine de la ligne 100 peut évi- 
demment être utilisée également 
pour l'écriture (C=2), mais il appar- 
tient alors à chacun de mesurer les 
conséquences de ses actes en fonc- 
tion de sa connaissance de la struc- 
ture des disquettes et du fonctionne- 
ment du DOS. 





ne le suivrai pas totalement dans sa en conservant le code 255 ($FF) = 
1LOAD ACCES.HERBEMONT 30 REM LECTURE EN CARACTERES 
ILIST 4Q EUF = 46247: FOR 1 = 0 TO 255:4 = PEE 
K CBUF + I): GOSUB 40: PRINT À$;: 
1 REM LECTURE DIRECTE NEXT PRINT 
2 REM SUR DISGQUETTE O0 END 
3 REM ==========2==-- é0 À$ = CHRS (AD: IF (A > 32 AND 4 < 127 
5 C = 1: INPUT "PISTE ":P: INPUT "STCTE >) OR À > 161 THEN RETURN 
UR “:S:SLOT = é:DRIVE = 1: ON P 70 À = ",": RETURN 
< OCOR P > 34 OR S < OO OR S > 15 G 70 REM ACCES DISQUE FAR LA ;ETHODE SIMP 
OTO 5: GOSUB 100 LIFIEE 
10 REM LECTURE EN HEXADECIMAL 100 POKE 4S121,C: POKE 45975, POKE 459 
20 À$ = "B4BB.BS5SBA ND8236": FOR I = 1 TO 76,S: POKE 46583,SLÛOT *# 16: POKE 4 
LEN (AS): POKE Sii + I, ASC © MID 6584,DRIVE: CALL 45111: POKE 4S121 
$ (AS,1,1)) + 128: NEXT : POKE 72, ,2: POKE 72,0: RETURN 
O0: CALL - 144: PRINT 
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Avoir un Apple pour travailler, c’est 
bien. Mais en avoir deux ? Le pro- 
gramme DOUBLE APPLE n'effectue 
pas la multiplication des pommes, 
mais permet de travailler SIMULTA- 
NEMENT sur deux programmes en 
Applesoft. 


Les utilisations sont nombreuses : ex- 
ploitation de deux versions d’un pro- 
gramme, consultation de l’un pen- 
dant que l’on édite l’autre, etc. 


L'initialisation, après le chargement 
de la routine, est lancée par un 
&CLEAR. Votre programme précé- 
dent semble disparaître mais n’est 
pas effacé: la commande &IN- 
VERSE échange les deux program- 
mes en mémoire. Ceux-ci peuvent 
être chargés, sauvés sur disque, 
édités et bien sûr exécutés sous la ré- 
serve que les variables soient globa- 
les pour l’ensemble des program- 
mes: Ja valeur d’une variable 







L’Apple en multitâche ? 


pe 
| WE 
o°Ù = 
. NY! 


o 






commune est donc identique quel- 
que soit le programme actif. 


Jérôme Leclercq 


La mémoire disponible pour le se- 
cond programme, après la com- 
mande &CLEAR, correspond à l’en- 
semble de la mémoire libre moins 
$3000 octets (paramètre MARGE de 
l'assemblage) qui sont réservés pour 
l'extension du premier programme. 


Si ce dernier, en cours d'édition, ap- 
proche très près de la frontière, une 
série de deux beeps se fait entendre 
à chaque touche enfoncée. Il est 
alors préférable de sauver les deux 
programmes, puis de les recharger 
en relançant la routine, plutôt que de 
risquer d’écraser le début du second 
programme. 


Pour un aperçu des possibilités de la 
routine, lancer la démonstration avec 
EXEC DOUBLE APPLE.DEMO et 
examiner l’interférence des variables 
entre les 2 programmes. 








ZM Se 


5 a AM MENU 
DRE ep TE PU 


à FR 
RAA 
RE 


LS 


1 #----}) DOUBLE APPLE <----# 40 € = 
2 41 * Controle l’appel 
3 *# Cration: 06/04/84 J. Leclercq 92 À === 
4 *# Modific: 20/06/84 À. Avrane 43 ENTRY = * 
S 44 CMP  #$BD clear 
6 ORG +$300 45 BEQ CLEAR 
7 4é CMP  #S9E inverse 
8 SAUZTXT = $06 47 BEQ  INVERSE 
9 SAV2END = +08 48 RTS 
10 KSy = +38 49 
11 TXTTAB = $67 S0 4 = meme 
12 PRGEND = $SAF S1 *# Clear: initialise la scission 
13 CHRGET = $B1 SD 4 
14 SAUTXT = $EB 53 CLEAR LDA TXTTAB 
15 SAVEND = $ED 54 STA  SAUTXT 
16 NUMERO E $EF 393 LDA TXTTAB+1 
17 INTDOS = $3EA 56 STA  SAUTXT +1 
18 AMPER = $3FS 37 LDA  PRGEND 
19 NEU = $D64B 58 STA  SAVEND 
20 KEYIN = $FD1B 59 LDA  PRGEND+1 
21 BELL =  +FF34 60 STA  SAVEND+1 
22 MARGE = $30 61 
23 62 LDA  PRGEND 
24 4 63 STA TXTTAB 
25 *# Place & et la routine de saisie 64 LDA  PRGEND+1 
2% sn 65 CLC 
27 LDA #$4C jmp éé ADC  H4MARGE 
28 STA AMPER 67 STA TXTTAB+1 
29 LDA  HK#<ENTRY 68 
30 STA  AMPER+1 69 LDA #2 
31 LDA  H)>ENTRY 70 STA NUMERO 
32 STA AMPER+2 71 JSR CHRGET 
33 72 LDA TXTTAB 
34 LDA  HK#<ENTRY2 73 SEC 
35 STA KsSy 74 SBC #1 
36 LDA  #)DENTRY2 75 STA PTRDEBUT 
37 STA KSuy+1 76 LDA TXTTAB+1 
38 JMP INTDOS 77 SBC #0 
39 78 STA  PTRDEBUT+1 
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79 LDA 
80 STA 
81 PTRDOEBUT = 

82 JMP 


#0 

$3333 Ccras<! 
#-2 

NEW 





S4 Hammam mm mme 


85 #Inverse:{change les 2 programmes 


87 INVERSE LDA 


88 CMP 
89 BNE 
90 LDA 
91 STA 
92 BNE 


93 P2VERSP1 STA 
94 ECHANGE LDA 


95 STA 
76 LDA 
97 STA 
98 LDA 
99 STA 
100 LDA 
101 STA 
102 LDA 
103 STA 
104 LDA 
105 STA 
106 LDA 
107 STA 
108 LDA 








#1 

NUMERO 
P2VERSP1 

#2 

NUMERO 
ECHANGE = jmp 
NUMERO 1 
TXTTAB 
SAU2TXT 
TXTTAB+ 1 
SAV2TXT + 1 
PRGEND 
SAV2END 
PRGEND+ 1 
SAV2END+1 


109 STA  PRGEND+1 


110 LDA  SAV2TXT 
111 STA  SAUTXT 
112 LDA  SAU2TXT+1 
113 STA  SAVTXT+1 
114 LDA  SAV2END 
115 STA  SAVEND 
116 LDA  SAV2END+1 
117 STA  SAVEND+1 
118 JMP  CHRGET 


119 

120 # === —— 
121 * Saisie: controle d(bordement 
122 * A SE D DS 


123 ENTRY2 = * 











124 JSR KEYIN 
125 PHA 

126 LDA NUMERO 
127 CMP #1 

128 BNE EXIT 
129 LDA  PRGEND+1I 
130 CLC 

131 ADC #1 s(curité 
132 CMP  SAUTXT+1 
133 BCC EXIT 

134 JSR BELL 

135 JSR BELL 

136 EXIT PLA 

137 RTS 

138 END 





*BLOAD DOUBLE APPLE 


*300.3B7 


0300- A9 4C 8D 
0308- Fé 03 A9 
0310- 9D 85 38 
0318- EA 03 C9 
0320- F0 34 60 
0328- 68 85 EC 
0330- BO 85 EE 
0338- BO 18 697 
0340- 85 EF 20 
0348- E9 01 8D 
0350- 00 8D 58 
0358- 33 4C 4B 
0360- DO 06 A9 
0368- 85 EF ÀS 
0370- 85 07 ÀS 
0378- 85 09 ÀS 
0380- 85 68 AS 
0388- 85 B0O AS 
0390- 85 FC AS 
0398- 85 EE 4C 
0340- 48 ÀS EF 
0348- B0O 18 69 
03B0- 20 3À FF 


1EXEC DOUBLE APPLE .DEMO 


1MONI CO 


1BLOAD DOUBLE APPLE 


ICALL 768 


ASSIS 


JILOAD DOUBLE APPLE.P1 
J& CLEAR 


1LOAD DOUBLE APPLE.P2 
J]& INVERSE 





1LOAD DOUBLE APPLE.PI 
1LIST 


O0 REM P1/A.AURANE/200684 

10 REM PROGRAMME 1 

11 DEF FN LD =L+1/K 

20 FOR I = i TO 33 

25 INVERSE : LIST 9,50: NORMAL 


30 : & INVERSE : GOTO 
40 L = FN L(L) 

950 PRINT "L="L: NEXT 
70 PRINT 


80 PRINT "NOMBRE D'OR = "L 


1LOAD DOUBLE APPLE.R2 
ILIST 





0 REM P2/A.AVRANE/200684 
1  INVERSE : LIST 10,45: NORMAL 
5 PRINT “I="I, 

10 REM PROGRAMME 2 

11K=1 

12 DEF FN KCK) = K *x J 

40 FOR J = 1 TO 1 


41 :K = FN KCK): NEXT 
90 PRINT "K="K 

70 PRINT 

80 &  INVERSE : GOTO 40 
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Initiation à l’assembleur (6) 


Comme tous les langages, ou pres- 
que, l'assembleur peut servir à l'écri- 
ture de programmes complets. D'ail- 
leurs, la plupart des logiciels 
professionnels” vous sont livrés sous 
forme de codes machine, résultats de 
l'assemblage de volumineux pro- 
grammes sources. Dans ce cas, 
toutes les opérations du logiciel ont 
été conçues en assembleur : entrée 
au clavier et affichage à l'écran, af- 
fectation des valeurs aux variables, 
calculs, accès disques, impression. 

Même si l'on utilise alors intensément 
les routines offertes par la ROM de 
l'Apple ou par son DOS, il est évi- 
dent que la mise au point d’un tel 
logiciel représente un travail de lon- 
gue haleine et d'une grande minutie. 


Autre utilisation possible de l’assem- 
bleur, plus souple et plus facile à 
mettre en oeuvre, l'écriture de mo- 
dules de taille abordable”, utilisés 
en complément d’un langage évolué, 
fera l'objet du présent article. 

Dans la mesure où l’Applesoft consti- 
tue le compagnon inséparable de 
votre Apple Il ou //, nous examine- 
rons donc les moyens par lesquels 
peut s’aménager une cohabitation 
entre ce Basic ‘’évolué” et des routi- 
nes en langage-machine issues de 
votre travail de création. 
L’assembleur permettra alors de faire 
certaines choses plus vite ou mieux 
que le Basic, il en complètera le jeu 
d'instructions, mais l'essentiel de vos 
programmes sera toujours réalisé en 
Applesoft, garantissant ainsi une plus 
grande rapidité d'écriture, sinon un 
soulagement au niveau des maux de 
tête. 


CALL : pour et contre 


Pour appeler une routine à partir du 
Basic, il semble facile d'utiliser une 
instruction Basic comme CALL, que 
vous connaissez déjà bien. Pour ap- 
peler une routine débutant à 
l'adresse décimale A (point d'entrée), 
on insère CALL À à l'endroit voulu 
dans le programme et l'ordinateur 
procède à l'exécution de la routine 
avant de revenir à l'Applesoft. 


C’est effectivement la solution la plus 
simple, car on laisse finalement au 
Basic le soin d'assurer lui-même la 
jonction avec les routines, sans avoir 
à se préoccuper de la façon dont il y 
parvient. 

Le CALL est bien pratique pour ex- 
ploiter certaines routines de la ROM : 
CALL —868 pour effacer la fin de la 
ligne courante, par exemple. De 
même pour utiliser des routines de 
votre cru, préalablement chargées à 
l'adresse adéquate. 
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Mais l'usage du CALL comporte des 
limitations qui réduisent en fait son 
champ d'application : 

e Si la routine appelée réclame des 
paramètres, il n'est pas facile de 
les lui transmettre autrement que 
par des POKEs plus ou moins 
nombreux, à des adresses choisies 
à l'avance et qui doivent rester à 
la disposition de l'utilisateur. 


e Si la routine comporte plusieurs 
points d'entrée, en fonction des 
traitements à effectuer, il faut faire 
des CALLs à des adresses diffé- 
rentes, ou POKEr quelque part un 
paramètre permettant à la routine 
de déterminer sur quel point d’en- 
trée elle doit se brancher. 

e Si vous modifiez les routines et 
que cela déplace les points d’en- 
trée, il faut alors modifier égale- 
ment le programme Basic. 


Nous présenterons donc ici deux 
autres solutions pour réaliser l’inter- 
face entre Basic et langage-machine. 
La première fait également appel à 
l’'Applesoft ‘’évolué”, au travers de 
l'instruction &, dont la renommée 
n'est plus à faire. La seconde utilise 
en revanche une routine en langage- 
machine de l'Applesoft, dont nous 
parlerons en détail plus avant. Dans 
un cas comme dans l’autre, l’utilisa- 
tion de ces techniques suppose un 
minimum de renseignements sur la 
façon dont l'Applesoft exécute et ma- 
nipule les instructions d’un pro- 
gramme. 


Analyse du RUN 


Structure d’un programme 


Un programme Applesoft est stocké 
en mémoire centrale à partir d'une 
adresse ’pointée” par les adresses 
$67 et $68. En situation normale, 
c'est-à-dire en l’absence de manipu- 
lation des pointeurs par le program- 
meur, cette adresse de début est 
$801; on trouve alors #$01 dans 
$67 et #$08 dans $68. L'adresse 
$800 contient toujours pour sa part 
la valeur 0 si l'adresse de début des 
programmes est fixée à $801. 

Si aucun programme ne se trouve en 
mémoire, après un NEW par exem- 
ple, les trois adresses successives 
$800, $801 et $802 contiennent la 
valeur 0. 


Une ligne de programme est stockée 
de la façon suivante : 


e Adresse de la ligne suivante, dans 
l'ordre octet bas / octet haut : si la 
deuxième ligne commence en 
$80A, on trouvera #$0A dans 
$801 et #$08 dans $802. Si la 
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troisième ligne débute en $818, 
on aura alors #$18 dans $80A et 
#$08 dans $80B. 

e Numéro de la ligne, dans l’ordre 
octet bas / octet haut. 

e Codes des instructions de la ligne. 

e La fin de la ligne est marquée par 
un 0. 


On sait que l’on est à la fin du pro- 
gramme lorsque l’on trouve 0 et 0 
dans les deux octets où l’on devrait 
autrement trouver l'adresse de la 
ligne suivante. Un programme Apple- 
soft se termine donc par trois O, un 
pour marquer la fin de la dernière 
ligne, et deux pour marquer la fin du 
programme. C'est la même configu- 
ration que celle des adresses $800 à 
$802 lorsqu'il n'y a pas de pro- 
gramme du tout. 


Pour bien comprendre la suite, il se- 
rait bon de vous munir de votre 
Pom's 4 ou de votre recueil 1, et de 
l'ouvrir à l’article traitant des codes 
ASCII épluchés. 

En effet, les instructions de l'Apple- 
soft ne sont pas stockées ‘en clair”, 
mais sous la forme de ‘tokens”, 
c'est-à-dire de codes sur un octet, 
chacun de ces codes correspondant à 
une et une seule instruction. Ainsi, si 
vous avez un PRINT dans une ligne, 
vous ne trouverez pas en mémoire 
les codes ASCII des lettres P, R, I, N 
et T, mais tout simplement BA, qui 
est le token de PRINT en hexadéci- 
mal. 

Les autres composantes des instruc- 
tions (variables, constantes numéri- 
ques, constantes alphanumériques...) 
sont en revanche conservées sous 
forme ASCII. Pour PRINT 39, par 
exemple, on aurait en mémoire BA 
33 39. Il s’agit toujours d'ASCII posi- 
tif, avec le bit 7 des codes à 0, car 
les tokens de l'Applesoft utilisent 
l'ASCIT négatif (bit 7 à 1) et s’éten- 
dent des valeurs #$80 à #$EA. 


L’Applesoft utilise un pointeur de 
programme, situé aux adresses $B8- 
$B9. Ce pointeur est géré par une 
routine commençant à l'adresse $B1 
(baptisée souvent CHRGET), sur la- 
quelle nous reviendrons plus loin en 
détail. Pour l'heure, il nous suffit de 
savoir que ce pointeur contient 
l'adresse du caractère du programme 
Basic (token, élément d’un nom de 
variable...) que l’interpréteur est en 
train d'analyser. Prenons l'exemple 
du petit programme suivant : 


10 PRINT 39 


Il est stocké en mémoire à partir de 
$801 sous la forme : 


801-— 09 08 OA 00 BA 33 39 
808— 00 00 00 





Lorsque l’interpréteur abordera l'ana- 
lyse du token de PRINT (BA), le 
pointeur de programme $B8-$B9 
contiendra l’adresse de BA, soit $805 
eo . dans $B8 et #$08 dans 


Lorsque vous lancez l'exécution de 
votre programme par RUN, l’Apple- 
soft procède tout d’abord à quelques 
initialisations : remise à zéro des va- 
riables, positionnement du pointeur 
de programme au début de celui-ci 
(soit adresse contenue dans $67-$68, 
diminuée de 1), c'est-à-dire à $800 
dans le cas standard... 

On arrive ensuite sur une routine dé- 
butant en $D7D2 et qui constitue le 
coeur de l’interpréteur de l’Applesoft, 
car c’est elle qui “lit” les instructions 
du programme, en prépare l'analyse 
et assure le branchement sur les rou- 
tines de traitement correspondant à 
chacune de ces instructions. 


L'exécution du programme 


Le listing ci-dessous reprend l’essen- 
tiel de la routine d'exécution des ins- 
tructions. Nous en examinerons les 
points principaux, afin de déterminer 
dans quelles conditions on peut sans 
risques ajouter à l'Applesoft d'autres 
instructions, au moyen de routines 
maison”. 


0702- BA TSX 

0703- 84 F3 STX $F8 
D705- 20 58 08 JSR +0858 
D708- AS 88 LDA 588 
D7D4- A4 89 LOY 589 
D70C- Aé 76 Lox 576 
070E- E3 INX 

070F- F0 04 BEQ #07ES 
D7E1- 85 79 TA 379 
07E3- 84 7A STY s7A 
D7ES- A0 00 LOY ##00 
07E7- Bi 83 LDA 589) ,Y 
D7E?- D0 57 NE 50842 
D7EB- A0 02 LOY #502 
07E9- Bi e8 LDA (588) ,Y 
D7EF- 18 CLC 

07F0- FO 34 2ea 50824 
D7F2- c3 INY 

07F3- 81 83 LDA (#88) ,Y 
D7FS- 85 75 STA 375 
D7F7- ca INY 

D7F8- 81 83 LOA (583) ,Y 
D7FA- 85 76 STA 574 
D7FC- 93 TYA 

D7F0- .45 88 ADC 583 
O7FF- 35 68 STA 583 
D801- 90 02 8cc $0805S 
0303- Eé 87 INC se? 
080:- 24 F2 BIT sF2 
0807- 10 14 BPL 50310 
0899- Aé 76 LDX $76 
0308- E3 INX 

Daoc- F0 0F BEQa $0310 
030E- A? 23 LOA ##23 
0819- 29 SC 08 JSR $085C 
0913- âé 75 LOX $75 
D815- AS 76 LOÀ $76 
0817- 20 24 ED JSR #E024 
Da1A- 20 57 08 JSR 30857 
D310- 20 81 00 JSR 50081 
0820- 20 28 08 J5R 50328 
D823- 4C 02 07 JMP $0702 
D824- F0 42 BEQ 50884 
D823- F0 20 BEQa 50357 
D824- E9 80 s8c #580 
D82C- 970 11 Bcc 5083F 
D82E- c? 40 CMP ##40 
0830- 80 1! 8cs 0344 
D832- A Ast 

0333- LE] TAY 

0834- 87 01 00 LDA #0001,Y 
0337- 48 PHA 

0838- 8? 00 00 LOR $0000 ,Y 
08338- 43 PHA 

083C- 4C 81 00 JMP 50081 
093F- 4C dé DA Jne $DAâé 


0842- C7 3A CMP ##34A 
D844- F0 8F BEQ #0805 
D846- 4C C9 DE JMP S0EC? 
0849?- 38 SEC 

D84A- A5 67 LOA $é7 
D84C- E9 O1! s8c #s01 
084E- A4 68 LOY 563 
D850- 89 01 BCSs $0853 
0852- 88 DEY 

D853- 85 70 STA 570 
D85S- 84 7€ STY $7€ 
D857- 60 RTS 

0858- AD 00 Co LOA 5C000 
0858- C9 83 CMP ##33 
D850- FO O1 8EQ 50840 
035F- 60 RTS 

D860- 29 53 05 JSR $50553 
0863- A2 FF LDx #SFF 
0845- 24 D8 BIT 508 
D867- 10 03 BPL $086C 
D867- 4C E? F2 JMP $F2E7 
D86C- Cc? 03 CMP ##03 
D8éE- 80 01 8cs $0871 
0870- 18 CLC 

D871- 00 3C BNE $084F 
0373- AS 83 LoA 583 
0875- A4 89 LOY 387 
D377-  Aé 76 LOX #76 
08797- E8 INX 

D874- F0 0C 8Eea 50888 
D87C- 85 79 STA #79 
D87E- 84 7A STY $7a 
D830- as 75 LDA 575 
08382- Ag 74 LOY s746 
D884- 85 77 STA S77 
0885- 84 78 STY 378 
0888- 68 PLA 

D839- 68 PLA 

088A- A9 SD LDA #550 
D88Cc- A0 03 LOY ##03 
D88E- 90 03 gcc 50873 
D390- 4C 31 D4 JMP $0431 
0893- 4c 3C 04 JMP 5043C 
D3946- D0 17 BNE 5084F 


* 


— $D7D2-$D7D3: sauvegarde du 
pointeur de pile en $F8. 


— $D7D5 : la routine en $D858 véri- 
fie si l’on a tapé CTRL-C (code cla- 
vier #$83) en cours d'exécution du 
programme. Si tel n'est pas le cas, et 
c'est ce qui nous intéresse ici, on re- 
vient simplement par RTS. 


— $D7D8-$D7DA: on charge le 
pointeur de programme dans les re- 
istres À et Y. Lorsque l’on arrive en 
D7D2 pour la première fois après le 
RUN, le compteur de programme 
contient $800 dans le cas standard 
(adresse de début du programme 
moins 1). De manière générale, cha- 
que fois que l'on aborde $D7D2 
pour exécuter une nouvelle instruc- 
tion, $B8-$B9 contient l'adresse de 
l'instruction à exécuter, diminuée de 
1 


— $D7DC à $D7DF : en $75-$76 se 
trouve stocké le numéro de la ligne 
en cours d'exécution, toujours dans 
l'ordre poids faible / poids fort. Si 
l'on est en mode immédiat, l’octet 
haut du numéro de ligne est rem- 
placé par #$FF dans $76: par consé- 
quent, si X contient la valeur de $76 
et si l'on augmente X de 1, on ob- 
tiendra 0 si $76 contenait #$FF, cas 
du mode immédiat. Le test BEQ de 
l'adresse $D7DF provoquera donc le 
branchement en $D7ES si l’on est en 
mode immédiat. 


Bien que ce soit un peu hors sujet, 


précisons que l'exécution des ordres 
Basic donnés en mode immédiat 
passe également par la routine 
$D7D2, comme le montre les ins- 
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tructions ci-dessus. On utilise donc 
également la routine CHRGET en 
$B1l, mais le ‘pointeur de pro- 
gramme” pointe alors sur les adres- 
ses des instructions dans le buffer 
d'entrée au clavier, et non plus dans 
la zone de stockage des programmes. 


— $D7E1-$D7E3: en $79-$7A se 
trouve toujours stockée, en mode 
programme, l'adresse de l'instruction 
à exécuter diminuée de 1. L’instruc- 
tion CONT utilise cette adresse pour 
relancer l'exécution. On copie donc 
en $79-$7A le contenu de $B8-$B9. 


— $D7E5 à $D7E9 : sans modifier la 
valeur du pointeur de programme, 
on examine l’octet pointé par ce der- 
nier. Si l’on trouve 0, tout va bien, et 
c'est effectivement le cas lorsqu'on 
arrive ici juste après RUN puisque 
$800 contient O. 

Sinon, on saute en $D842, où l’on 
vérifie cette fois s'il s’agit de ‘:” 
(#$3A). Dans l'’affirmative, on re- 
tourne dans la routine, mais dans le 
cas contraire, on saute à $DEC9 qui 
envoie une SYNTAX ERROR. 
Conclusion : quand on arrive en 
$D7D2 pour exécuter une nouvelle 
instruction, $B8-$B9 doivent pointer 
sur l’octet qui précède l'instruction en 
question et cet octet doit être 0” ou 
7: afin d'éviter une erreur de sun- 
taxe. C’est un point qu'il convient de 
garder en mémoire si l'on veut intro- 
duire de nouvelles instructions. 


—$D7EB à $D7F0: nous sommes 
dans le cas où $B8-$B9 pointe sur 
un 0, ce qui peut correspondre à 
deux situations : on est au tout début 
du programme ($800) ou on est à la 
fin d'une ligne (marquée par un 0, 
comme rappelé plus haut). En tout 
état de cause, on doit avoir juste 
après le O l'adresse de la ligne sui- 
vante, l’octet de poids fort se trou- 
vant deux octets plus loin que la po- 
sition actuelle pointée par $B8-$B9 
(LDY #$02 en $D7EB). 

Comme l'adresse de début d’un pro- 
gramme ne peut se trouver en des- 
sous de $800 si l’on veut éviter de 
traumatiser profondément l'Apple, 
l'octet de poids fort de l'adresse 
d'une instruction ne peut être à 0 
que si elle correspond à la marque 
de fin de programme (voir supra), ou 
à l'absence de programme ($800- 
$801-$802 à zéro). Si tel est le cas, 
on saute en $D826 qui nous amène 
en $D88A. Sans entrer dans les dé- 
tails, précisons que le JMP $D43C 
nous ramène finalement en mode 
immédiat, comme toujours en fin 
d'exécution de programme Apple- 
soft. 


— $D7F2 à $D7FA: il s’agit cette 
fois de passer à la ligne suivante. 
Aux index 3 et 4 par rapport à la po- 
sition actuelle pointée par $B8-$B9, 
on trouve le numéro de cette ligne, 
que l'on stocke alors en $75-$76 
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(numéro de la ligne en cours d’exé- 
cution). 

— $D7FC à $D803 : en ajoutant 4 
(valeur de Y transférée dans A) à la 
valeur de $B8-$B9, on déplace le 
pointeur de programme qui contient 
maintenant l'adresse de la première 
instruction de la ligne, diminuée de 
1 


— $D805 à $D81A : c'est là que l’on 
revient si l'on était arrivé dans 
$D7D2 en pointant sur un ‘:” et non 
sur un 0. Les deux cas de figure se 
rejoignent. 

Si le contenu de $F2 est négatif, on 
est en mode TRACE, sinon on passe 
directement à la suite (BPL $D81D), 
comme on le fait également si l’on 
est en mode immédiat ($76 contient 
alors #$FF). 

En mode TRACE, on affiche un # 
(code ASCII $23) suivi du numéro 
de la ligne (lu en $75-$76) au 
moyen des routines $DB5C (affiche 
le contenu de l'accumulateur), 
$ED24 (affiche le contenu de X suivi 
de celui de A) et $DB57 (affiche un 
espace). 


— $D81D : appel de la routine $B1, 
qui va nous retourner le premier ca- 
ractère de l'instruction. 

Cette routine CHRGET met à jour le 
pointeur de programme et va lire 
dans la zone de stockage du pro- 
gramme Applesoft les octets de celui- 
ci. Elle joue un rôle fondamental 
dans le fonctionnement de l'Apple- 
soft standard” et peut également 
rendre de grands services pour l'ap- 
pel de routines en langage machine à 
partir du Basic. Aussi en analyserons 
nous en détail le contenu, au moyen 
du listing ci-dessous. 


0081- Es B8 INC 583 
0083- 00 02 BNE 50087 
0085S- Eé 87 INC 587 
9087- AD 95 02 LDA $0205 
008A- C? 3A CMP ##24 
008C- 80 0A 8c35 #00C3 
008E- c? 20 CMP #$20 
00C0- F0 EF 8EQ sooe! 
00c2- 33 SEC 

90C3- E9 30 sBC #8 30 
00C5- 38 SEC 

90Cé- E? D0 s8c #$00 
90c8- 60 RTS 

00C?- 830 29? 

90CA- 4F 27? 

o0c8- C7 ??? 

o0occ- s2 PP? 

00C0- - 00 BRK 

00CE- 20 ERK 

00CF- 00 BRK 


—$B1 à $B7: incrémentation du 
pointeur de programme $B8-$B9. 
selon une méthode déjà décrite dans 
les articles précédents (l'octet de 
poids fort est incrémenté lorsque 
l'octet de poids faible passe à 0). et 
chargement de l'octet pointé par 
$B8-$B9 dans l'accumulateur. 

Notez bien ici l'astuce des program- 
meurs qui ont placé le pointeur à 
l'intérieur même de la routine. juste 
après le code de l'instruction LDA. 
Ainsi. la routine se modifie elle- 
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même : on aura toujours en $B8- 
$B9 l'adresse de l'octet que l'on veut 
lire et que l'on retrouvera dans l'ac- 
cumulateur après le LDA. 

Dans notre listing, l'instruction en 
$B7 est LDA $0205: cela provient 
de ce que la liste a été effectuée en 
mode immédiat, $B8-$B9 pointant 
alors toujours sur le buffer d'entrée- 
clavier, situé aux adresses $200 à 
$2FF. Après un RUN, en revanche, 
$B8-$B9 est initialisé à l'adresse de 
début du programme moins 1 : dans 
la situation normale, on aura donc 
en $B7 l'instruction LDA $0800. En- 
suite l'adresse dont on charge le 
contenu dans À peut varier de deux 
façons : soit séquentiellement à cha- 
que appel de $B1 (qui incrémente 
$B8-$B9), soit par manipulation di- 
recte (calcul) des valeurs de $B8- 
$B9, comme on l'a vu plus haut aux 
adresses $D7FC à $D803. 

Il est important de noter que chaque 
modification de $B8-$B9 revient en 
fait à changer l'octet sur lequel por- 
tera l'analyse de l'interpréteur de 
l'Applesoft, soit à l'intérieur de l'exa- 
men d'une instruction, soit au mo- 
ment de l'exécution d'une nouvelle 
instruction (voir les tests du début de 
la routine $D7D2). Si l'on veut par 
conséquent ajouter des instructions à 
l'Applesoft, sans le perturber outre 
mesure (le seuil de tolérance étant 
marqué par l'apparition d'une SYN- 
TAX ERROR). il convient de vérifier 
que les valeurs de $B8-$B9 et de 
l'accumulateur sont convenables 
pour le Basic avant de lui rendre la 
main. C'est un point sur lequel nous 
reviendrons plus loin au travers de 
quelques exemples. 


— $BA-$BC : le contenu de l'accu- 
mulateur, c'est-à-dire l'octet que l'on 
vient de lire dans le programme. est 
comparé à #$3A. code ASCII du 
7", forme sous laquelle sont stockés 
les signes ”:* que vous utilisez pour 
séparer plusieurs instructions sur une 
même ligne. Le test BCS provoque 
le branchement en $C8 (RTS) si A 
est supérieur ou égal à #$3A, ce qui 
sera notamment le cas pour les 
tokens de l'Applesoft et les lettres 
constituant le premier caractère d'un 
nom de variable. 


— $BE-$CO: #$20 est le code 
ASCII de l'espace. forme sous la- 
quelle il est stocké dans un pro- 
gramme. Si le caractère que l'on 
vient de lire est un espace. on 
l'ignore pour passer directement au 
caractère suivant en incrémentant le 
pointeur de programme. 

Cela ne signifie pas toutefois, par 
exemple, que les espaces placés 
entre guillemets après un PRINT ne 
seront pas pris en compte, puisque 
vous pouvez constater aisément 
qu'ils sont respectés à l'affichage ou 
à l'impression. C'est en effet la rou- 
tine qui effectue le traitement corres- 


pondant à un PRINT qui se charge 
de lire la donnée à imprimer et d'uti- 
liser les espaces, et le branchement 
sur cette routine, comme nous le ver- 
rons plus loin, s'effectuera toujours 
avant que l'on ait rencontré et ignoré 
le premier espace dans une chaîne 
de caractères en le lisant par 
CHRGET ($B1). Ne sont donc ainsi 
effectivement délaissés que les espa- 
ces lus dans un programme dans le 
cadre de l'interprétation d'instructions 
pour lesquelles ils ne sont pas signifi- 
catifs (espaces séparant l'instruction 
DATA du premier item de DATA. 
par exemple). 


— $C2 à $C6 : nous sommes dans le 
cas où le contenu de l’accumulateur 
est inférieur à #$3A et différent de 
#$20. On procède alors à deux 
soustractions successives, mais à l’is- 
sue desquelles le contenu de l'accu- 
mulateur n'aura pas changé. 

En effet, si l'on additionne #$30 (48 
en décimal) et #$D0 (208 en déci- 
mal), on obtient #$100 (256). On 
ne manipule ici que des octets, rai- 
son pour laquelle on procède à la 
soustraction en deux étapes, mais 
puisque la retenue est toujours re- 
mise à 1 (SEC) avant l'opération, on 
ne retire finalement de l’accumula- 
teur que le poids faible de # 
$30+#S$D0, soit 00, et l’accumula- 
teur retrouvera donc sa valeur initiale 
à l'issue du calcul. 

En fait, cette manipulation apparem- 
ment neutre permet d'établir une dif- 
férence entre les chiffres (codes 
ASCII de #$30 à #$39) et les autres 
caractères de code ASCII inférieur à 
#$30 : 


e Si A est supérieur ou égal à #$30, 
À — #$30 sera inférieur à #$D0 
en valeur absolue. Par suite, à l'is- 
sue de la soustraction (A — #$30) 
— #$D0, le bit de retenue C sera 
positionné à 0 (voir l’article consa- 
cré à SBC pour le résultat de la 
soustraction d'un octet à un autre 
plus petit que lui). 

e Si À est inférieur à #$30, À — 
#$30 sera supérieur ou égal à 
#$D0 en valeur absolue, et le bit 
C sera positionné à 1 après (A — 
#$30) — #$D0. 

En résumé, lorsque l'on sort d8 la 

routine CHRGET, la valeur du bit C 

dépend de la nature du caractère 

que l'on vient de lire dans le pro- 
gramme : 

e C=1 s A est supérieur ou égal à 
#$3A (:), puisque l'on sort au test 
BCS de l'adresse $BC 

e C=0 si À contient un chiffre 
(codes ASCII #$30 à #$39) 

e C=1 si À contient un caractère de 
code ASCII inférieur à #$30 


Ces différences seront ensuite exploi- 
tées par l'interpréteur et les routines 
correspondant à chaque instruction 
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de l’Applesoft pour en vérifier la 
bonne syntaxe. 


Par ailleurs, le bit Z joue également 

un rôle, sur lequel nous reviendrons, 

en sortie de la routine $B1. Deux cas 
peuvent conduire à Z=1: 

e Le caractère lu est , ce qui 
amène Z=1 lors de l'instruction 
CMP #$3A. 

e Le caractère lu est un 0 (fin de 
ligne Applesoft), ce qui provoque 
également Z=1 à l'issue de la der- 
nière soustraction SBC #$DO, 
puisque le résultat obtenu alors est 
à nouveau (0. 


Maintenant que nous savons ce qui 
se passe dans la routine CHRGET, 
nous pouvons ressortir de notre JSR 
$B1 de l'adresse $D81D et retourner 
dans l'interpréteur à l'adresse sui- 
vante, soit $D820. Celle-ci nous di- 
rige aussitôt vers une autre sous-rou- 
tine par un JSR $D828. 


— $D828: l'accumulateur contient 
toujours l’octet que l'on vient de lire 
dans le programme par le JSR $B1. 
Les indicateurs du registre d'état sont 
positionnés en fonction des résultats 
obtenus dans cette même routine 
$B1. En particulier, le bit Z est-à 1 si 
l'octet lu est O ou ”’:” (voir ci-dessus). 
Le test BEQ branche donc sur 
$D857 (RTS) si l'on vient de lire 
l’octet de fin d’une ligne (0) ou le sé- 
parateur d'instructions (:). Dans l’un 
ou l’autre cas, on revient donc de 
suite en $D823 pour passer à l’ana- 
lyse de l'instruction suivante, si elle 
existe, par un JMP $D7D2. 


— $D82A-$D82C : les tokens de 
l'Applesoft vont de #$80 à #$EA. 
De plus, si c'est un token que l’on 
vient de lire par $B1, le bit C est à 1 
et, par l'instruction SBC #$80, on 
ne retire donc que #$80 de la valeur 
du token (l'opposé de la retenue 
vaut O0). Si l’accumulateur contient 
un token, on aura donc toujours 
C=1 après la soustraction, d'où 
échec du test BCC. 

On ira ainsi en $D83F si À n’est pas 
un token (nom de variable, cons- 
tante, caractère de contrôle...) pour 
sauter en $DA46, routine de l’Apple- 
soft traitant l'affectation des valeurs 
aux variables (c'est elle qui provo- 
quera par la suite une erreur de syn- 
taxe si cette dernière n’est pas cor- 
recte). 


— $D82E-$D830: c'est un token 
que l’on a lu par $B1 et, après le 
SBC #$80, l'accumulateur contient 
une valeur comprise entre O et 
#$6A. Après CMP #$40, on aura 
C=1 si À est supérieur ou égal à 
#$40; dans ce cas, BCS branche sur 
$D846 qui va nous envoyer SYN- 
TAX ERROR. 

Si l’on regarde la liste des tokens, on 
constate que le dernier qui passera 
les tests des adresses $D82A à 
$D830 sans provoquer d'erreur est 


”,, 


NEW (code #$BF). Tous les tokens 
dont le code est supérieur à #$BF 
sortiront en erreur au BCS de 
l'adresse $D830. Or, les dits tokens 
(par exemple TO, FN, THEN...) sont 
en quelque sorte ‘non autonomes”, 
en ce sens qu'ils doivent toujours 
être précédés d’un autre et ne vien- 
nent jamais au début d'une instruc- 
tion. C'est donc la routine de traite- 
ment du token ‘’maître” (par 
exemple FOR, DEF, IF.) qui se 
chargera ultérieurement de les ‘’récu- 
pérer” dans le programme. Ceci ex- 
plique pourquoi l'interpréteur envoie 
une SYNTAX ERROR si l’on arrive 
en $D828, alors que l’on commence 
seulement l'analyse d’une instruction, 
avec un token de code supérieur à 
#$BF. 


— $D832 à $D83B : l'accumulateur 
contient le code d'un token valable 
en début d'instruction, mais diminué 
de #$80, soit une valeur comprise 
entre 0 et #$3F. 

À partir de $D000 sont stockées sur 
deux octets, dans l’ordre poids faible 
/ poids fort, les adresses de début, 
moins 1, des routines machine cor- 
respondant au traitement réalisé par 
chaque token de l'Applesoft. En 
$D000 - $D001, par exemple, on 
trouve l'adresse moins 1 de la rou- 
tine du premier token dans l’ordre 
des codes, c'est-à-dire END: en 
$D002 - $D003, on trouve l'adresse 
moins 1 de la routine du second 
token FOR... 

Prenons l'exemple concret de l’ins- 
truction HOME dont le token est 
#$97. On obtient son numéro dans 
la liste des tokens en lui retirant 
#$80, ce qui nous donne #$17. 
Comme chaque adresse de routine 


occupe deux octets, il faut multiplier 


#$17 par 2 pour savoir à quelle dis- 
tance (index) du début de la table 
nous trouverons la routine de 
HOME. En effet, la routine du pre- 
mier token (dont le numéro dans la 
liste est O) est donnée en $D000+ 0 
et $D000+1; la routine du second 
(numéro 1) en $D000+2 et 
$D000+3, celle du troisième (nu- 
méro 2) en $D000+4 et $D000+5 
. De façon générale, si T est le 
token d’une instruction Applesoft, N 
= T — #$80 est son numéro dans la 
liste des tokens et si A = 2 x N, on 
trouvera l'adresse de la routine ma-, 
chine correspondante (toujours dimi- 
nuée de 1) aux adresses $D000+A 
et $D000+A+1. Dans le cas de 
HOME, À = 2 x #$17 = #$2E. 
Aux adresses $DO2E et $D02F on 
trouve 57 FC, ce qui nous donne 
comme adresse finale $FC58 après 
ajout de 1. Or $FC58 (ou encore 
—936 en décimal) est l'adresse de la 
routine du moniteur qui efface tout 
l'écran et positionne le curseur en 
haut et à gauche. On voit ainsi que 
HOME, par l'intermédiaire de l’inter- 
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préteur, permet finalement d'appeler 
une routine en langage machine qui 
assure le traitement voulu, en l’oc- 
currence le nettoyage de l'écran. 
Revenons maintenant aux instruc- 
tions de l'interpréteur qui réalisent 
cet appel de routine. Quand on ar- 
rive en $D832, on a en fait dans 
l'accumulateur le numéro du token 
dans la liste et, par ASL, on multiplie 
ce numéro par 2 avant de le charger 
dans le registre Y par TAY. Par LDA 
$D001, Ÿ et PHA, on empile l’octet 
fort de l'adresse de la routine; par 
LDA $D000, Y et PHA, on empile 
son poids faible. Plus précisément, 
on a maintenant au sommet de la 
pile l'adresse de la routine moins 1. 


— $D83C : par JMP $B1, on va lire 
le caractère qui suit le token que l'on 
vient d'interpréter. De plus, comme 
on utilise JMP et non JSR, le som- 
met de la pile est toujours constitué 
par l'adresse de la routine du token 
moins 1. 

Par suite, lorsqu'on sort de CHRGET 
par RTS, le processeur dépile les 
deux octets du sommet, leur ajoute 1 
(voir articles précédents) et saute à 
l'adresse ainsi obtenue. On se bran- 
che donc sur la routine de traitement 
du token, avec dans l’accumulateur 
le caractère qui suit le-dit token dans 
le programme. Le tour est joué et 
cela vous explique pourquoi la table 
débutant en $D000 contient les 
adresses des routines diminuées de 1 
et non les adresses exactes. 
N'oublions pas cependant que l’on 
est toujours sous le contrôle du JSR 
$D828 de l'adresse $D820; lors- 
qu'on arrive dans la routine du 
token, on a 22 D8 au sommet de la 
pile (adresse de retour $D823, dimi- 
nuée de 1 et empilée avec le poids 
faible au sommet). D'une façon ou 
d'une autre, c’est-à-dire soit par un 
RTS, soit par un JMP $B1 pour utili- 
ser le RTS de l'adresse $C8 par 
exemple, cette adresse sera utilisée 
au retour de la routine du token et 
l'on reviendra en $D823 pour exécu- 
ter un JMP $D7D2 et aborder l’ana- 
lyse d'une autre instruction. Rappe- 
lons qu'il faut alors, pour éviter les 
erreurs, que $B8-$B9 pointe effecti- 
vement sur un 0 ou un ’:”. Dans le 
cadre de l'ajout d'instructions à l’Ap- 
plesoft, le fait que leur analyse se 
fasse à l'issue d'un JSR $D828 et 
qu'il faille en revenir en pointant sur 
0 ou ”:” peut réclamer certaines pré- 
cautions, qu'illustreront les exemples 
donnés plus loin. 


— $D849 à $D857 : bien qu'elle ne 
fasse pas directement partie de notre 
sujet, précisons que cette routine cor- 
respond au traitement effectué par 
l'instruction RESTORE. Elle met le 
pointeur de DATA ($7D-$7E) à 
l'adresse de début du programme 
moins 1 (contenu de $67-$68 dimi- 
nué de 1). 
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Utilisation de & 


Rappelons tout d’abord que & est 
une instruction de l’Applesoft, dont le 
token est codé #$AF. Il s’agit donc 
d'un token valide en début d’instruc- 
tion, et l'accès aux routines machine 
correspondant à & suivra le même 
processus que pour tout autre token. 
C’est par le biais de $D7D2 et de la 
sous-routine débutant en $D828 que 
se fera l'appel. 

Dans la table $D000 des adresses de 
routines, les valeurs données pour & 
sont F4 03, et l’utilisation de & 
conduira finalement à un branche- 
ment sur $3F5. C'est à ce niveau 
que peut intervenir le programmeur, 
en mettant aux adresses $3F5 - $3F6 
- $3F7 une instruction JMP $XXYY, 
soit 4C YY XX en langage machine, 
où YY désigne le poids faible de 
l'adresse où commence la routine 
d'exécution des instructions précé- 
dées de &, et XX le poids fort de 
cette même adresse. 

Par exemple, si l'on met en $3F5 les 
codes 4C 00 03, l'interpréteur de 
l'Applesoft sautera à l'adresse $300 
chaque fois qu’il rencontrera un & 


Version & : lisa 1.5 


0300 1 
0300 AS4C 2 
0302 8DF503 3 
0305 A910 4 
0307 8DF603 ] 
0308 A903 é 
030C 8DF703 7 
030F 60 & FIN 
0310 FOFD 7  DEE 
0312 CSEA 10 
0314 DOCE 11 
0316 A424 12 
0318 8404 13 
0314 2097CFC 14 
031D 4404 15 
031F 8424 1é 
0321 4C9E03 17 
0:24 C984 18 So 
0326 FOG4 19 
0328 C9BE 20 
0324 DIF “a: 
0320 4734 22 Si 
032E 8538 23 
0330 4903 24 
0332 8537 25 
0334 20EA03 Z2é 
0337 4CFE03 27 
0334 ADOQCO 28 ENTREE 
0330 10FB 27 
033F 2C10cû 30 
0342 C?30 31 
0244 F004 32 
0344 C9A0 33 
0348 90F0 34 
0344 40 35 S2 
0348 C597 26 53 
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dans le programme. Si l’on met 4C 
00 80, le saut se fera à l'adresse 
$8000.. La routine concernée (en 
$300, ou en $8000..) doit alors se 
charger de lire la suite de l'instruction 
dans le programme et de réaliser le 
traitement demandé. 


Exemple d'application 


Supposons que le fonctionnement de 
certaines instructions de l’Applesoft 
ne soit pas conforme à nos voeux et 
que, par ailleurs, nous voulions lui en 
adjoindre quelques autres. Par hypo- 
thèse, nous savons comment écrire 
en assembleur les routines nécessai- 
res et nous utiliserons & pour 
contraindre l’Applesoft à leur faire 
appel chaque fois que bon nous 
semblera… 


La liste des adaptations à réaliser est 
la suivante : 


e PRINT devra toujours effacer la 
ligne sur laquelle on veut afficher 
quelque chose avant de procéder 
à cet affichage. L'instruction sera 
&PRINT et utilisera exactement la 


034D D010 
EN Fe 034F A003 
A 0351 892000 
LDA HDEB Fe. 4e 
STA $3F6 0356 10F9 
. Le 0358 2039FB 

035B 2058FC 
si . 035E A000 

0360 68 
are 0361 972000 
BE 50 0364 C8 
LDY $24 0365 C004 
STY $6 0367 DOF7 
JSR $FC?C 0369 4C8503 
2. . 026C C9EF 
US 036E D004 
CMP #24 0370 2058FC 
BEQ Si 0373 4C8503 
CMP #$BE 0276 Ch 
BNE 53 0378 D00B 
LDA HENTREE | 0374 20DDFB 
STA 538 0370 20DDFB 


LDA /ENTREE 0380 A9BA 
STA $37 


JER $3EÂA 0385 08 

JMP MO 0384 A474 
LD£ +C009 0388 COFF 
BFL ENTREE 0384 D00B 
BIT $C010 032C AO1E 
CMP #H#$2D 038E 8438 
BEG 52 0390 A0FD 
CMP -H#A0 0372 8439 
BCC ENTREE 0394 20EA03 
RTS 0277 24 

CMP #$97 02983 206100 
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même syntaxe que PRINT 
(&PRINT A, &PRINT ZZ$, 


&PRINT TEXTE”; ..). : 


Dans les instructions GET et 
INPUT,  rebaptisées &GET et 
&INPUT, on refusera tout carac- 
tère de contrôle à l'exception de 
RETURN. Le reste de la syntaxe 


sera inchangé. 

L'instruction HOME, soit 

&HOME, effacera tout l'écran, 

quelles que soient les limites de la 

fenêtre. 

L'instruction NEW, soit &NEW, 

réalisera en revanche le traitement 

d'un HOME standard, c’est à dire 
effacement dans les limites de la 
fenêtre. 

e L'instruction LET, soit &LET, 
fonctionnera comme un PRINT 
précédé d’un double beep. Ainsi, 
&LET TEXTE”, par exemple, 
produira un double beep et affi- 
chera TEXTE à l'écran. 


Voyons maintenant comment pro- 
grammer tout cela en analysant le lis- 
ting source de la routine donné ci- 
après. 


37 BNE S4 
28 LOY #3 
37 BO LDA $20,Y 
40 PHA 
41 DEY 
42 EPL B0O 
43 JSR $FB3 
44 JSR #$FCS58 
45 LDY #0 

46 Bi PLA 
47 STA $20,Y 
48 INY 
49 CPY #4 

SO BNE Bi 

Si JMP Sé 

2 54 CMP H&BF 
53 BNE 55 

54 JS5R $FCS& 
99 JMP Sé 

56 S5 CMP #$Aû 
57 BNE Sé 

58 JSR $FBDD 
59 JSR $FBDD 
60 LDA H$EA 
61 JMP Mi 

62 Sé PHP 

63 LOY $76 
é4 CPY #$FF 
65 _BNE Ali 

66 LOY ##$1B 
67 STY $38 
68 LDY #3FD 
67 STY #37 
70 JSR $2EA 
71 fi PLP 

72 JSR $B1 
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0378 4C1003 73 JMP DEE 0388- CO FF DO 0B A0 1B 84 38 

037E 208700 74 MO JSR #E7 0390- A0 FD 84 37 20 EA 03 28 

06 BA 75 MI TSX 0398- 20 Bi 00 4C 10 03 20 E7 

OZA2 E& 76 INX 03A0- 00 BA ES E8 A 4C 20 DS 

0343 E8 7 INX _ 

03844 SA 78 TXS LORD INI14.2,TEST 

03A5 4C20D8 77 JMP $D520 ILIST 

5 PRINT CHR$ (4)"EBRUN INI16.2.08J" 

RASE, 10 TEXT : & HOME : FOR 1 = 1 TO 10: & 

0300- À7 4c 8D F5 03 À? 10 8D xxExSÉYEEEEXE" : NEXT : UTAB 2: HTAEB 

0308- Fé 03 À? 03 8D F7 03 éû 1: & PRINT "REECRITURE SUR CETTE 

0310- FO FD C? BA DO 0E A4 24 LIGNE"; 

0318- 84 06 20 9C FC A4 06 84 20 & PRINT : & PRINT "ENTREZ QUELQUE C 

0320- 24 4C 9E 03 C7 84 FO 04 HOSE";: & INPUT “ ? "328: &  PRIN 

0222- C9 BE DO 1F À? 34 85 28 T "ENCORE EN ‘GET‘'"3;: & GET FAURE 

0330- A9 03 85 39 20 EA 03 4C RINE 5 4 PRINT 28,Y$: & PRINT ;: 

0338- ?E 03 AD 00 CO 10 FB ZC 30 POKE 34,5: POKE 33,20: & HOME : UTAB 

0340- 10 CO C7 8D FO 04 C7 AD 20: HTAB 1: & LET "MESSAGE BRUYA 

0348- 90 F0 60 C9 97 DO 1iD Aû NT ses sa mean ces sous sieste serait 

0350- 03 B? 20 00 48 88 10 F9? Ms: & GET 2%: PRINT : TEXT : FOR 

0358- 20 37 FB 20 58 FC A0 O0 1 = 1 TO 10: PRINT "Xx####EKKEEEREX 

En — HÉFERRÉÉÉEÉRÉEERÉÉEEEREXEX" : NEXT 

OR en 2. … 2: pe Le + 40 POKE 34,18: POKE 33,10: POKE 35,22: U 
L TAB 19: & PRINT "AAAAAAAAAARAAARR 

DS70=.20 48 FC A0" 68 DS "er. 6 ARR AB ARAARAAARRRARRRAAAABARR 

0378- DO 0B 20 DD FB 20 DD FB AAAAAARAAAA" : GET 2%: & NEW : GET 

0380- A9 BA 4C Al 03 08 À4 76 285: & HOME 


— Lignes 2 à 8: pour que les ins- 
tructions & arrivent bien sur notre 
routine, il faut mettre en place le vec- 
teur de l'&, c’est-à-dire donner à 
partir de l'adresse $3F5 un JMP à 
l'adresse voulue. Plutôt que d'utiliser 
des POKESs en Basic, nous confierons 
cette tâche aux toutes premières ins- 
tructions de la routine assembleur. 
On met tout d'abord #$4C (code de 
JMP) en $3F5 (lignes 2 et 3). L'as- 
sembleur LISA 1.5 utilisé ici offre en 
outre deux directives pour calculer 
les poids faible et fort d'adresses 
symboliques dont on ne connaît pas 
forcément l'implantation exacte au 
moment de l'écriture du source, ou 
dont l'implantation peut être modi- 
fiée en fonction de l’évolution du 
source lors de sa mise au point. DEB 
étant l'étiquette qui marque le début 
de la routine de traitement, #DEB 
donnera le poids faible de son 
adresse calculée au moment de l’as- 
semblage et /DEB nous donnera son 
poids fort. Tous les assembleurs pro- 
posent de telles directives, avec des 
syntaxes légèrement différentes le cas 
échéant, mais que vous trouverez 
toujours dans la documentation de 
celui que vous utilisez (par exemple 
#< pour le poids faible et #> pour 
le poids fort en BIG MAC). 

On met donc le poids faible de 
l'adresse en $3F6 (lignes 4 et 5) et 
son poids fort en $3F7 (lignes 6 et 
7). En regardant la liste d'assem- 
blage, on constate que DEB corres- 
pond finalement à l'adresse $310 et 
que ce sont bien #$10 et #$03 qui 
sont stockés en $3F6 et $3F7. 


On sort ensuite par RTS pour revenir 
au Basic. Si le code objet de la rou- 
tine est sauvé sur disquette, la mise 
en place du vecteur & pourra se faire 
simplement par un BRUN du fichier 
concerné en début de programme 
Applesoft. L'ensemble du code sera 
ainsi chargé en mémoire mais l’exé- 
cution s'arrêtera au RTS de la ligne 
8, l'accès au reste de la routine, à 
partir de DEB, devant ultérieurement 
résulter de l'emploi de & (on aura en 
$3F5 : JMP $310 après le BRUN). Si 
vous rentrez ce code sans le sauver 
sur disquette, l’initialisation de & en 
début de programme pourra se faire 
au moyen de CALL 768. 


— Ligne 9: il est important de se 
rappeler ici que l’on arrive en DEB à 
l'issue de l'analyse d'un token. C’est 
donc le JMP $B1 de l'adresse 
$D83C, au sem de l’interpréteur, qui 
nous amène en $310. De ce fait, 
l’accumulateur contient déjà le carac- 
tère qui suit & dans le programme, 
caractère sur lequel pointe $B8-$B9, 
et les indicateurs du registre d'état 
sont positionnés en fonction de la 
nature du caractère lu par CHRGET. 
Le test BEQ sera donc positif si l’on 
a dans l’accumulateur un 0 ou un 
7”, ce qui marque la fin d'une ins- 
truction et la nécessité de ressortir de 
la routine. On reviendra alors en 
$D823, puis en $D7D2, et $B8-$B9 
pointant sur 0 ou ”:”, l'exécution du 
programme Applesoft se poursuivra 
sans problème. 


Lignes 10 à 17: #$BA est le token 
de PRINT et si l’accumulateur 


2] 
on is ru y il 


contient #$BA nous sommes donc 
en train d'analyser une instruction 
&PRINT. Dans ce cas, on sauve la 
position horizontale du curseur (sto- 
ckée en $24) en $6, on fait un saut à 
la routine du moniteur qui efface la 
fin de la ligne (JSR $FC9C, équiva- 
lent du CALL —868 que vous pou- 
vez faire en Basic), on rétablit ensuite 
la position du curseur en $24 et on 
passe finalement en MO. 

Nous reviendrons plus loin sur le trai- 
tement réalisé en MO, mais on peut 
noter dès maintenant que l'exécution 
de &PRINT n'est pas complète à l’is- 
sue des lignes 10 à 17, puisque l’on 
a bien effacé la fin de la ligne mais 
encore rien affiché. Dans la mesure 
où ce serait perdre notre temps que 
de ré-écrire les routines de PRINT de 
l'Applesoft, tout le problème consis- 
tera, lorsque nous serons en MO, à 
faire en sorte que l’interpréteur re- 
prenne la main et traité le PRINT 
comme un PRINT standard du Basic, 
sans générer de message d'erreur. 


— Lignes 18 à 27 : #$84 est le token 
de INPUT et #$BE celui de GET. Si 
l'on recontre une instruction &INPUT 
ou &GET, le traitement consiste à 
changer le vecteur de la routine 
d'entrée de caractères utilisée par le 
système (l'adresse de cette routine 
est donnée en $38-$39), comme 
nous l’avons déjà fait souvent dans 
les exemples illustrant les articles 
d'initiation précédents. Le JSR $3EA 
(ou encore CALL 1002) permet de 
faire prendre en compte cette modifi- 
cation par le DOS, qui supervise les 
entrées - sorties lorsqu'il est chargé. 
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Une fois le vecteur changé, on passe 
en MO. Là encore, le traitement réel 
de INPUT ou GET reste à faire, et 
nous en laisserons le soin à l'Apple- 
soft... 


— Lignes 28 à 35 : il s’agit de la rou- 
tine d'entrée que nous voulons faire 
utiliser par le Basic dans ses INPUT 
et GET. Elle est particulièrement sim- 
ple et vous n'aurez aucune peine à 
l’analyser. 


— Lignes 36 à 51: #$97 est le 
token de HOME. On empile les va- 
leurs des limites de fenêtre, stockées 
aux adresses $20 à $23 (lignes 38 à 
42). JSR $FB39 réalise le même trai- 
tement que l'instruction TEXT et JSR 
$FC58 réalise l'effacement de tout 
l'écran, puisque TEXT remet les limi- 
tes de fenêtre à leurs valeurs maxi- 
males. On récupère ensuite les limi- 
tes de fenêtre dans la pile (lignes 45 
à 50) et on saute en S6. 

Notez que, cette fois-ci, le traitement 
de l'instruction est terminé et on de- 
vrait donc pouvoir passer à l’instruc- 
tion suivante du programme. 


— Lignes 52 à 55: #$BF est le 
token de NEW. On exécute un sim- 
ple HOME standard (JSR $FC58) et, 
là encore, on doit passer à l’instruc- 
tion suivante. 


— Lignes 56 à 61: #S$AA est le 
token de LET. On fait deux appels 
consécutifs à $FBDD (émission d’un 
beep) puis on charge l’accumulateur 
avec le token de PRINT car il fau- 
drait maintenant faire afficher le mes- 
sage par l'Applesoft, c'est-à-dire le 
tromper sur la nature de l'instruction 
et lui laisser finir le travail. 


— Lignes 62 à 73: c'est là que l’on 
arrive pour les instructions & dont le 
traitement est achevé par notre seule 
routine. Petite complication intermé- 
diaire : remettre la routine d'entrée 
standard ($FD1B) en $38-$39 si l’on 
est en mode immédiat (signalé par 
un #$FF à l'adresse $76). Ainsi, lors- 
que le programme Applesoft est ter- 
miné, vous pourrez taper par exem- 
ple &HOME en mode immédiat pour 


“rétablir la routine d’entrée standard 


et recouvrer l’usage normal des ca- 
ractères de contrôle. 

Si l'on est toujours en mode pro- 
gramme, par contre, il faut passer à 
l'instruction suivante. Pour ce faire, 
on lit le caractère suivant (JSR $B1) 
et on saute en DEB. Si la syntaxe est 
correcte, on doit avoir alors dans 
l'accumulateur un 0 ou un ’:” et le 
test BEQ de DEB nous ramènera fi- 
nalement en $D7D2 où l'exécution 
du programme se poursuivra correc- 
tement. 


— Lignes 74 à 79: on arrive en MO 
dans le cas des instructions &PRINT, 
&INPUT ou &GET. Le JSR $B7 
permet de remettre dans l’accumula- 
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teur, qui a pu être modifié plus haut, 
le token de PRINT, INPUT ou GET, 
puisque l’on relit l'adresse pointée 
par $B8-$B9, mais sans modifier ce 
pointeur. 

On arrive en M1 dans le cas de 
&LET. Cette fois, on ne relit pas le 
token, car il faut au contraire le faire 
passer pour un PRINT, dont on a 
chargé le token dans l’accumulateur. 
Il convient maintenant de rappeler 
que nous sommes arrivés en DEB à 
l'issue du JMP $B1 de l'adresse 
$D83C et que nous restons donc 
sous le contrôle du JSR $D828 dont 
l'adresse de retour occupe le sommet 
de la pile. Nous voulons faire repren- 
dre l'exécution de PRINT, INPUT ou 
GET par l'Applesoft, comme s'il 
s'agissait d'instructions normales” 
saisies par l’interpréteur dans le pro- 
gramme. L'idéal serait donc de venir 
se brancher en $D820, puisque c’est 
là que commence dans l'interpréteur 
l'analyse d’un token qu'il vient de 
lire et de charger dans l’accumulateur 
par le JSR $B1 de l'adresse $D81D. 
Pour que tout se passe bien par la 
suite, il faut donc effacer la trace du 
JSR $D828 dont nous ne pouvons 
revenir par RTS (sinon, le token 
n'est pas interprété, $B8-$B9 ne 
pointe pas sur 0 ou ‘:” et le résultat 
final est SYNTAX ERROR) et que 
nous ne pouvons pas davantage lais- 
ser au sommet de la pile avant de 
sauter en $D820 (sinon, la présence 
d’une adresse de retour excédentaire 
dans la pile finit par provoquer un 
mauvais branchement en retour de 
routine). C’est pourquoi on remonte 
le sommet de la pile de deux posi- 
tions (TSX - INX - INX - TXS), afin 
de réaliser l'équivalent d'un POP et 
de faire ‘’sauter” l'adresse de retour 
du JSR $D828 à l'extérieur de la 
pile. On peut alors retourner sans ris- 
que à l’interpréteur en $D820 et lui 
laisser terminer le travail. 


Lorsque vous aurez saisi et sauvé 
cette routine de traitement d’instruc- 
tions &, le programme de démons- 
tration qui l'accompagne vous per- 
mettra d’en tester le fonctionnement. 


Manipulation de 
CHRGET 


L'appel de routines machine par & 
passe par l’interpréteur de l’Applesoft 
et comporte certaines contraintes : 
mise en place du vecteur en $3F5, 
respect du contrôle’ exercé par l’inter- 
préteur sur l'analyse des instructions, 
nécessité, en cas de modification du 
traitement réalisé par certaines ins- 
tructions du Basic, de modifier les 
programmes existants (remplacer 
ainsi les PRINT par des &PRINT...). 

Il est possible de procéder autrement, 
et de prendre même le pas sur l’in- 
terpréteur, en exploitant le fait que la 
routine d'acquisition des caractères 


du programme Applesoft, CHRGET 
($B1l), se trouve en RAM et peut 
donc subir une modification de la 
part du programmeur. Après avoir 
chargé le caractère pointé par $B8- 
$B9 dans l’accumulateur en $B7, et 
plutôt que de retourner de suite à 
l'interpréteur, il faut alors placer un 
saut dans une routine personnelle”, 
une sorte de mini-interpréteur, qui 
traitera nos instructions en priorité et 
en exclusivité. 


La liste ci-dessous donne un exemple 
de CHRGET modifié : en $BA est 
implanté un JMP $300, et en $300 
devra commencer notre mini-inter- 
préteur. Nous verrons qu'il faut veil- 
ler dans cette routine à respecter le 
traitement normal de CHRGET pour 
les caractères qui ne nous concernent 
pas (comparaison à #$3A, soustrac- 
tions de #$30 et #$D0...) afin de ne 
pas perturber l’Applesoft. 


Eé 88 INC 388 


0081- 
0083-  D0 02 BNE 0087 
0085- Eé B9 INC  s89 
0087- AD 05 02 LDA 50205 
008A-  4C 00 03 JMP 0300 
0080-  0A ASL 

008E- C9 20 CMP #s20 
00C0- FO EF BEQ  so0ë8t 
o0c2- 38 SEC 

00C3- E9 30 SBC ##30 
00C5- 38 SEC 

00Cé- E9 00 S8C #00 
00C8- 60 RTS 

00C?- 80 27? 

O0CA-  4F 27? 

00CB- C7 27? 

00CC- 52 27? 

00CD- 00 BRK 

00CE- 00 BRK 

00CF- 00 BRK 


Pour mettre en place ce JMP, il est 

exclu d'utiliser des POKESs à partir du 

Basic : les POKESs sont en effet inter- 

prétés, bien sûr, et lus en mémoire 

par des appels à $B1. Si vous modi- 
fiez par POKESs la routine qui est en 
train de lire ces mêmes POKES, il est 
évident que vous n'arriverez jamais 

au bout ! Ù 

Vous disposez en fait de trois solu- 

tions : 

e En mode immédiat, mettre le saut 
en place à partir du moniteur en 
tapant par exemple BA: 4C 00 
03. Cette solution n’est à retenir 
que pour un premier test. 

e Après avoir rentré le saut sous 
moniteur, sauver les codes corres- 
pondants dans un fichier par 
BSAVE Fichier, A$BA, L3. Vous 
pourrez alors le récupérer simple- 
ment au début de vos program- 
mes Applesoft par BLOAD Fichier. 
Pour revenir facilement au Basic 
standard, il est alors pratique de 
disposer d’un second fichier, 
sauvé de la même façon, mais 
contenant les 3 codes du 
CHRGET ‘normal”. 

e Utiliser une petite routine ma- 
chine, chargée et exécutée en 
début de programme, pour mettre 
les codes en place (le source 
d'une telle routine serait par 


SR 
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exemple : LDA #$4C - STA $BA 
- LDA #$00 - STA $BB - LDA 
#$03 - STA $BC - RTS). Cette 
méthode est moins pratique que la 
précédente, mais elle sera inévita- 
ble si vous travaillez sous ProDos, 
qui ne prend pas en compte le 
chargement d’un fichier directe- 
ment dans CHRGET. 


Exemple d’application 


Nous reprendrons exactement le 
même problème que celui traité plus 
haut au moyen de &. Cette fois, 
l'appel de routines se fera par un 
JMP $300 implanté en $BA. Il n’est 
pas nécessaire de modifier la syntaxe 
des instructions Applesoft concernées 
(nous interprèterons les PRINT, GET 
et autres avant même que l’Applesoft 
ne le fasse). 


Voyons maintenant quelles sont les 
différences entre cette nouvelle rou- 
tine d'interprétation des instructions 
et la précédente. 


— Ligne 9 (PRINT) : il n’y aura plus 
de JSR $B7 en fin de routine et on 
recharge directement l'accumulateur 
avec le token de PRINT. 


— Lignes 15 et 21 (INPUT et GET): 
même chose que ci-dessus. On em- 
pile le token de l'instruction avant de 
modifier À et on le dépile avant de 
passer à la fin de la routine. 


— Ligne 46 (HOME): le traitement 
de l'instruction est assuré totalement 
par notre routine et terminé lorsque 
l'on arrive à cette ligne 46. Il s’agit 
donc cette fois de passer à l’instruc- 
tion suivante et d'acquérir ie carac- 
tère qui suit le token de HOME dans 
le programme (normalement O0 ou 
7”). Nous sommes toujours sous le 
contrôle du JSR $B1 de l'adresse 
$D81D, dont l'adresse de retour est 
au sommet de la pile. Par JMP $B1 
(et non JSR $B1) on lit le caractère 
suivant en mettant à jour le pointeur 
de programme et, au prochain RTS, 
on revient en $D820. Comme A 
contient normalement O ou ”:”, on 
ressort de $D828 par le BEQ $D857 
et on passe à l'instruction suivante 
(JMP $D7D2) en pointant sur un ca- 
ractère valide. 


— Ligne 50 (NEW): même proces- 
sus que ci-dessus. 


— Lignes 56 à 72 (sortie après inter- 
prétation de nos instructions, ou sor- 
tie directe si le caractère ne nous 
concerne pas). Pour que tout se 
passe bien, il faut effectuer les 
mêmes traitements que le CHRGET 
normal” dans sa partie $BA à $C&. 
À partir de $BE, CHRGET n'est plus 
affecté par la modification des codes 
et l'on pourra donc le réutiliser tel 
quel. 

Il nous manque donc le CMP #$3A 
et le branchement alternatif BCS qui 
en résulte, que nous remettons aux 


lignes 56 et 57. Si le test BCS est 
positif, on doit quitter la routine sans 
autres manipulations de À ou du re- 
gistre d'état mais il nous faut malgré 
tout rétablir la routine d'entrée stan- 
dard en $38-$39 si l’on est en mode 
immédiat (registre d'état et accumu- 
lateur sont alors empilés avant modi- 
fication et dépilés avant RTS). Dans 
le cas de BCS AO, le RTS de la ligne 
72 nous renvoie en $D820. 

Si le test BCS échoue, il faut en re- 
vanche poursuivre les manipulations, 
ce que nous ferons, après rétablisse- 
ment éventuel de la routine d’entrée, 
par un JMP $BE. Dans ce cas, c’est 
le RTS de l'adresse $C8 qui nous ra- 
mènera en $D820. 


Notez bien ce qui se passe dans ce 
système lorsqu'on utilise un token 
pour réaliser un traitement prépara- 
toire (PRINT, GET, INPUT ou LET) 
et que l'exécution de la routine du 
token est laissée à l'Applesoft lui- 
même. Le traitement préparatoire est 
cette fois-ci réalisé avant que ne 
commence l'interprétation du token 
par le Basic (’entre” les adresses 
$D81D et $D820) et l’on rend en- 
suite la main à l’interpréteur comme 
s'il ne s'était rien passé (l’'accumula- 
teur contient le token, sur lequel 
pointe $B8-$B9 et les indicateurs du 
registre d’état sont positionnés en 
conséquence). Il n'est donc plus né- 
cessaire de gérer la pile pour tromper 
l'interpréteur sur le point auquel il est 
parvenu dans son analyse. 


Vous trouverez ci-après un petit pro- 
gramme de démonstration, compara- 
ble à celui utilisé avec &. Il est écrit 
avec des instructions Applesoft tout à 
fait banales, et vous pourrez donc 
l'exécuter sous contrôle du CHRGET 
normal ou sous contrôle du 
CHRGET modifié. Ne soyez pas sur- 
pris toutefois si, dans la première hy- 
pothèse, le résultat obtenu n'est pas 
tout à fait conforme aux espéran- 
ces. 


Version chrget : lisa 1.5 


0300 1 ORG $300 
0300 C?BA 2 CMP H$BA 
0302 D010 3 BNE S0 

0304 A424 è LDY #24 
0306 8406 5 STY $é 

0308 209CFC é JSR $FC?9C 
030B A40é 7 LDY $6 

030D 8424 8 STY #24 
030F A9BA 9 LDA H$BA 
0311 4C7403 10 JMP Sé 

0314 C984 11 So CMP #$84 
0316 F004 12 BEQ S1 

0318 C9BE 13 CMP H$BE 
0314 D021 14 BNE S3 

031C 48 15 Si PHA 

0310 A92C lé LDA HENTREE 
031F 8538 17 STA #38 
0321 A903 18 LDA /'ENTREE 
0323 8539 19 STA $39 
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0325 20EA03 20 JSR $3EA 


0328 68 21 PLA 

0329 4C7403 22 JMP Sé 
032C ADOOCO 23 ENTREE LDA $C000 
032F 10FB 24 BPL ENTREE 
0331 2C10C0 25 BIT $C010 
0334 C?8D 26 CMP #$8D 
0336 F004 27 BEQ S2 
0338 C9A0 28 CMP #H$AO 
0334 90F0 29 BCC ENTREE 
033C 60 30 S2 RTS 

0330 C997 31 S3 CMP ##97 
033F D010 32 BNE S4 
0341 4003 33 LOY #3 
0343 872000 34 BO LDA $20,Y 
0346 48 35 PHA 

0347 88 36 DEY 

0348 10F9 37 BPL B0 
0344 2039FB 38 JSR $FB39 
0340 2058FC 39 JSR $FCS8 
0350 A000 40 LDY #0 
0352 68 41 B1 PLA 

0353 992000 42 STA #20 ,Y 
0356 C8 43 INY 

0357 C004 44 CPY #4 
0359 D0OF7 45 BNE B1 
0358 4CB100 46 JMP $81 
03SE C98F 47 S4 CMP #$BF 
0360 DO0é 48 BNE SS 
0362 2058FC 47 JSR $FC58 
0365 4CB100 50 JMP #$B1 
0368 C?AA S1 SS CMP H#SAA 
0364 D008 52 BNE Sé 
036C 200DFB 53 JSR $FBDD 
036F 20DDFB 54 JSR $FBDD 
0372 ASBA SS LDA #$BA 
0374 C934 56 Sé CMP #$3A 
0376 B00é S7 BCS A0 
0378 207E03 58 JSR A0 
0378 4CBE00 59 JMP $BE 
037E 08 60 A0 PHP 

037F A476 é1 LDY $76 
0381 COFF 62 CPY H#$FF 
0383 DO0D 63 BNE A1 
0385 A01B é4 LDY #$1B 
0387 8438 és STY $38 
0387 A0FD éé LOY H#$FD 
0388 8439 67 STY #39 
038D 48 68 PHA 

038E 20EA03 69 JSR $3EA 
0391 68 70 PLA 

0392 28 71 A! PLP 

0393 60 72 A2 RTS 
PS 
*300.393 


0300- C9 BA DO 10 A4 24 84 0é 
0308- 20 9C FC A4 06 84 24 A? 
0310- BA 4C 74 03 C9? 84 FO 04 
0318- C9 BE DO 21 48 A9 2C 85 
0320- 38 A9 03 85 39 20 EA 03 
0328- 68 4C 74 03 AD 00 CO 10 
0330- F8 2C 10 CO C9 8D FO 04 
0338- C9 A0 90 FO 60 C9 97 DO 
0340- 1D A0 03 89 20 00 48 88 
0348- 10 F9? 20 39 FB 20 S8 FC 
0350- A0 00 68 99 20 00 CS CO 
0358- 04 D0 F7 4C B1 00 C9 BF 
0360- DO 06 20 58 FC 4C Bi 00 
0368- C9 AÂ DO 08 20 DD F8 20 
0370- DD FB A9 BA C9? 34 B0O 06 
0378- 20 7E 03 4C BE 00 08 A4 
0380- 76 CO FF DO OD A0 1B 84 
0388- 38 A0 FD 84 39 48 20 EA 
0390- 03 48 28 60 


——_———_— 


ILIST:INI16.1.TEST 


10 TEXT : HOME : FOR 1 = 1 TO 10: PRINT 
LETTTIIT111111112211LLLLLLLL.).LLL.. 
#mææns": NEXT : VTAB 2: HTAB 1: PR 
INT “RÉECRITURE SUR CETTE LIGNE*; 

20 PRINT : PRINT “ENTREZ QUELQUE CHOSE"; 
t INPUT * 2 "3,2%: PRINT "ENCORE EN 

*GET‘";: GET Y#: PRINT : PRINT 2% 
,Y$: PRINT ;: GET 2$ 

30 POKE 34,5: POKE 33,20: HOME : VTAB 20 

: HTAB 1: LET "MESSAGE BRUYANT.... 


103 PRINT 626262606080 DD DD DE DE DE DE D DE DEEE 
HRRRRERUUUUURNRNEE" : NEXT 

40 POKE 34,18: POKE 33,10: POKE 35,22: V 
TAB 19: PRINT "AARAAAAAAARARRAAARA 


ABAARAAA" : GET 2$: NEW : GET Z#$: H 


OME 
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Personnalisez vos disquettes Macintosh 


Nous ne vous apprendrons rien en 
vous disant que, à chaque fois que 
l'on introduit une disquette d'amor- 
çage pour initialiser le Macintosh, on 
obtient à l'écran l'affichage tempo- 
raire d'un dessin. La plupart du 
temps, ce dessin est limité au simple 
message ‘’Bienvenue.”, accompagné 
d'un icône représentant le Mac. En 
fait, tout un chacun peut remplacer 
cela par une image personnelle, à 
condition de disposer des logiciels 
"Macpaint” et "MS Basic”. S'il n'est 
pas nécessaire de comprendre le 
fonctionnement du système pour uti- 
liser le programme que nous vous 
proposons ici, il nous semble impor- 
tant de vous donner quelques expli- 
cations, ne serait-ce que pour vous 
permettre d'adapter le principe à 
d’autres applications. 


Structure d’un document 
”’Macpaint” 


Le plus grand document Macpaint 
que l’on puisse obtenir correspond, à 
peu de choses près, à une feuille de 
papier format A4. Un rapide calcul 
nous permet de savoir que ce docu- 
ment est constitué par 720 lignes de 
576 points (soit 72 octets par ligne). 
Si l'image était sauvegardée sur la 
disquette sans modification, cela 
nous donnerait un fichier de 576 / 8 
* 720 — 51840 octets, ce qui n’ar- 
rive jamais. Donc, l'image est codée. 
Après de nombreux essais et compri- 
més contre les maux de tête, nous 
avons réussi à déterminer la nature 
exacte d'un tel fichier. 


Bloc de tête 


Chaque fichier commence par un 
bloc de 512 octets qui n'a pas de 
rapport direct avec l'image : 


e Les quatre premiers octets indi- 
quent si les motifs standards 
placés au bas de l'écran Macpaint 
ont été redéfinis ou non. 
$00000000 = motifs standards: 
$00000002 = un ou plusieurs 
motifs redéfinis par l'utilisateur. 

e Les trois cent quatre octets sui- 
vants constituent la définition des 
motifs (8 octets sont nécessaires à 
la représentation d’un motif - voir 
Les routines en ROM du Macin- 
tosh”, Pom's 15 - et Macpaint affi- 
che 38 motifs). 

e Les deux cent quatre octets res- 
tants ne semblent pas être signi- 
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fiants puisqu'ils sont toujours à 
zéro, quel que soit le type ou la 
dimension du dessin. Cette zone 
est peut-être réservée pour une 
extension future du logiciel. 


Codage des images 


Nous arrivons dans la partie qui nous 
a donné le plus de travail puisque, 
pour trouver une constante suscepti- 
ble de nous placer sur la bonne voie, 
nous avons dû réaliser un grand 
nombre de dessins ‘structurés”, qu'il 
fallait ensuite “lire” octet par octet à 
partir du Basic. Nous vous livrons ici 
le résultat de cette longue recherche. 


Dans tous les cas, même pour un 
très petit dessin, la totalité du docu- 
ment Macpaint est sauvegardée: ceci 
explique le fait qu’un document ab- 
solument vide occupe 2ko (soit qua- 
tre secteurs) sur la disquette lorsqu'il 
est sauvegardé. 


Chaque ligne de points (constituée, 
comme nous l'avons vu précédem- 
ment, par 72 octets) est codée indé- 
pendamment des autres de la ma- 
nière suivante : 


Si des octets identiques sont juxtapo- 
sés, nous trouvons dans le fichier 
codé un octet contenant le nombre 
d'octets identiques moins un, avec 
son bit de poids fort (bit 7 ou ‘bit de 
signe”) positionné à 1. Cet ‘octet 
compteur” est lui même suivi par la 
valeur de l’octet trouvé de façon ré- 
pétitive. Ainsi, pour une ligne totale- 
ment vide (tous les octets à zéro), 
nous trouvons $C7 et $00 (199 et 
0). Ceci correspond parfaitement à 
notre explication préalable, puisque 
199 — 128 (valeur du bit 7) + 1 est 
égal à 72. 

Dans le cas contraire, c'est à dire si 
des octets différents les uns des 
autres se suivent, l'octet compteur 
contient aussi le nombre d’octets 
moins un mais, cette fois, avec son 
bit de signe à 0. Cela permettra à la 
routine de décodage de déterminer si 
elle à affaire à des octets différents 
ou identiques. Puisque, dans le cas 
présent, nous avons des octets diffé- 
rents, l'octet utilisé comme compteur 
sera suivi par les N octets concernés. 
Si, avant codage, nous avons la suite 
d'octets : $FF, $FE, $AO, $10, la sec- 
tion correspondante dans le fichier 
codé sera : $03 (quatre octets moins 
un), $FF, $FE, $AO et $10. Les deux 
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possibilités peuvent, bien sûr, être 
combinées plusieurs fois pour une 
seule ligne de 572 points. On peut 
constater que cette méthode de co- 
dage est surtout rentable lorsque le 
nombre d'octets identiques est im- 
portant. En effet, si l'on prend le cas 
extrême où l’on aurait, pour la tota- 
lité du document, uniquement des 
séquences de deux octets identiques, 
mais différents des deux octets précé- 
dents et suivants, l'image codée 
prendrait cinquante pour cent de 
plus de place que si elle n'était pas 
codée. 


Pour conclure ce paragraphe, nous 
vous proposons un schéma représen- 
tant une ligne, une fois son codage 
effectué : 


16 octets à $FF 
($6F-143. 143-128+1-16) 


4 octets différents 
(3+1) 


| 52 octets à O 
($83-179. 179-128+1-52) 


Constitution d’un fichier 
”Startup” 


Pour qu'un fichier soit reconnu par le 
système comme étant l'image à affi- 
cher lors de l’amorçage, il doit : 


e être de même nature qu'un docu- 
ment Macpaint avant codage: 

e être baptisé du doux nom de 
Startupscreen”. 


Le programme Basic accompagnant 
cet article décode le document Mac- 
paint de votre choix, ce qui ne pose 
pas de problème puisque nous avons 
maintenant tous les éléments, et en 
fait un fichier que l’on peut considé- 
rer comme étant une ‘image mé- 
moire” du document original. L'affi- 
chage du Macintosh étant constitué 
par 512 lignes de 342 points, seule 
la surface correspondante placée 
dans l’angle supérieur gauche du do- 
cument à transformer est prise en 
compte. 
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10 ‘Conversion de fichiers MacPaint en 
fichiers “Startupscreen’. 

20° 

30 DEFINT A-Y:OPTION BASE 1:DIM A(36): 
ON ERROR GOTO 290 

40 CLS:CALL TEXTFONT(O) 

50 PRINT"Ce programme transforme un document 
MacPaint” 

60 PRINT'en un fichier Startupscreen.” 

70 PRINT"La partie supérieure gauche du document 
est utilisée” 

80 PRINT'(342 lignes * 512 colonnes).":PRINT 

90 PRINT'ATTENTION : si un fichiers Startupscreen 
se trouve sur la" 

100 PRINT “disquette placée dans le lecteur 

interne, il sera détruit." PRINT 
110 INPUT'Fichier MacPaint à convertir ? ",Z$: 
OPEN"i",1,Z$ 

120 OPEN'"o",2,"startupscreen” 

130 L=342 

140 M=32 

150 PRINT"Conversion en cours...” 

160 Z$=INPUT$(512,1) 

170 FOR 1=1 TO L:FOR J=1 TO MA(J)=O:NEXT:X=0 

180 NO=ASC(INPUT$(1,1)):1F NO<185S THEN O=NO |: 


GOTO 230 ELSE 0=256-N0Ot+ |: 
C=ASC(INPUT$(1,1)) 

190 FOR J=1 TO O:IF (J+X+1) MOD 2 THEN 
A((J+X+1)\2)=A((J+X+1)\2) OR C:GOTO 220 

200 CI=C*2S6:1F Cb32767 THEN CI=CI-65536l 

210 H=CIA((J+X+1)\2)=A((J+X+1)\2) OR H 

220 NEXT:X=X+0:GOTO 270 

230 FOR J=1 TO O:X=X+ 1:C=ASC(INPUT $(1,1)): 
IF (X+1) MOD 2 THEN A((X+1)\2)=A((X+ 1)\2) OR 
C:GOTO 260 

240 CI=C*2S6:1F Cb32767 THEN CI=CI-65536! 

250 H=CIA((X+1)\2)=A((X+1)\2) OR H 

260 NEXT 

270 IF X<72 THEN 180 

280 FOR J=1 TOM: 
PRINT#2,CHR$(A(J)\256);CHR$(A(J) AND 
&HFF);::NEXT:NEXT:CLOSE:PRINT"Conversion 
effectuée. ":GOTO 300 

290 CLOSE:END:IF ERL=280 THEN PRINT'La 
disquette est saturée l''RESUME 300 ELSE IF 
ERL=1 10 THEN RESUME 1 10 ELSE RESUME 120 

300 PRINT'Autre fichier à convertir ? (O/N) 

310 Z$=INKEYS:IF Z$="" THEN 310 ELSE IF Z$-"O" OR 
2$="0" THEN 40 ELSE IF Z$="N" OR Z$="n" THEN 
END ELSE 310 


La réalisation d'un fichier ”Startups- 
creen”’ par le programme ici proposé 
demande environ huit minutes, mais 
son affichage au mornent de l’amor- 
çage est instantané. Désormais, lors- 


Choisissez vos caractères 


Lorsque l'on édite un programme 
Basic, la taille et le type des caractè- 
res qui apparaissent dans les fenêtres 
List” et Command” sont imposés 
(New York 12 poiris avec la pre- 
mière version du dossier système, et 
Geneve 12 points avec la version ac- 
tuelle). Il est possible de changer cela 
en ‘’POKant” le code de la police 
voulue à l'adresse $985, et la taille à 
l'adresse $987. 


POKE &H985,4: POKE &H987,9 
nous fait passer en Monaco 9 points, 
ce qui permet de visualiser beaucoup 
plus de texte en une seule fois. La 
taille des caractères situés dans les 
menus est aussi modifiée, mais ce 
n'est pas un problème puisque, lors- 
que l'on programme, l'efficacité est 
plus importante que l'apparence de 
l'écran. = 


D’Applesoft à Microsoft 


Lorsque l’on passe de l'Apple II au 
Macintosh, on peut être confronté à 


que vous enverrez une disquette à 
un correspondant, celui-ci saura d’où 
elle vient, même si vous avez omis 
de joindre vos coordonnées. De plus, 
ce petit programme prouve qu'il 


des ‘’bugs” difficilement repérables, 
dûs à quelques différences entre les 
Basics utilisés. 

Les opérateurs logiques ne fonction- 
nent pas de la même façon. Ainsi : 


100 IF NOT A% THEN PRINT 
“NON”: 

GOTO 120 

110 PRINT "OUI" 


provoque, avec le Basic Applesoft, 
l'affichage de OUI” si la variable 
A% est égale à 0, NON” si A% est 
égale à 1 (ou, tout simplement, diffé- 
rente de 0). 

En Basic Microsoft, le texte affiché 
sera NON”, que la variable A% soit 
égale à 1 ou O. 

Cela est dû au fait que le Basic Ap- 
plesoft réalise seulement un test logi- 
que, alors que le Basic Microsoft ef- 
fectue une véritable opération 
logique. NOT 0 est égal à —1 (diffé- 
rent de O donc vrai), NOT 1 est égal 
à —2 (idem). Le Basic Microsoft affi- 
chera NON” uniquement si A% est 
égale à —1 (NOT —1 est égal à O). 
Le NOT étant souvent utilisé pour 


—— — 
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n'est pas nécessaire d’avoir le statut 
de ‘développeur de logiciels” pour 
personnaliser des disquettes. 


tester l'état d'un drapeau, il vaut 
mieux positionner celui-ci à 0 ou —1, 
plutôt qu’à 1 ou O. 


En Basic Applesoft, les boucles FOR 
- NEXT sont toujours exécutées au 
moins une fois, alors qu'avec le Basic 
Microsoft une boucle du type : 


FOR I1=0 TO 1 STEP —1:NEXT 
ou encore : 
FOR I1=1 TO O:NEXT 


ne sera pas exécutée (passage immé- 
diat à l'instruction suivante). 


L'instruction STR$(X) du Basic Mi- 
crosoft ajoute un espace au début de 
la chaîne résultante si le contenu de 
la variable X est positif : FICHIER” 
+ STR$(1) donne la chaîne ‘’Fl- 
CHIER 1”. Ce n'est pas le cas avec 
le Basic Applesoft, où la même ins- 
truction retourne la chaîne ‘Fl- 
CHIER1”. 


Si vous trouvez d'autres différences, 
n'oubliez pas de nous en faire part... 





Pom's n° 16 


Call :un exemple d’application 


Le Basic Microsoft autorise l'appel de 
routines en langage machine, ce qui 
est la moindre des choses. avec l'ins- 
truction CALL. Cependant. la docu- 
mentation fournie avec le logiciel 
n'est pas très claire sur ce point et un 
petit complément d'informations ne 
nous semble pas superflu. 


Pour illustrer le fonctionnement de 
cette instruction, nous avons écrit 
une courte routine qui effectue le 
transfert du contenu d'un tableau de 
variables entières à deux dimensions. 
vers un tableau de variables à une 
dimension. Cette routine permet de 
combler en partie un défaut de l'ins- 
truction PUT, qui n'accepte pas les 
indices : PUT(10,10).A(B.C) provo- 
que une ‘SYNTAX ERROR'" Ce 
n'est pas vraiment gênant lorsque 
l'on a seulement deux ou trois PUT 
à exécuter mais, si l'on doit réaliser 
une animation qui nécessite 32 de 
ces instructions, la mémoire peut être 
très rapidement saturée. Il serait à la 
fois plus agréable et plus efficace 
d'écrire une boucle du type : 


100 FOR 1%=0 TO 31 
110 PUT(10.10),A%(1%.0) 
120 NEXT 

plutôt que : 

100 PUT(10,10).A0% 

110 PUT(10.10).A1% 

120 PUT(10.10).A2% 
etc. 


Pour comprendre parfaitement le 
fonctionnement de la routine, il est 
indispensable de connaître la struc- 
ture des tableaux de variables entiè- 
res: nous allons donc commencer par 
là. 


Structure des tableaux 


L'instruction VARPTR(X) retourne 
l'adresse en mémoire de la variable 
X (uniquement avec des variables 
numériques: le système diffère sensi- 
blement pour les variables alphanu- 
mériques). De même. l'instruction 
VARPTR(V®%{(0)) retourne l'adresse 
du premier élément (variable en- 
tière : 2 octets) constituant le tableau 
V%{X). On peut noter au passage 
que. si un tableau V%{(X) a été préa- 
lablement défini avec DIM. une va- 
riable V% est considérée par l'inter- 
préteur comme totalement 
indépendante du tableau précité. 


Au dessus de l'adresse du premier 
élément (soit en allant vers les adres- 
ses les plus basses), nous trouvons 
les arguments du tableau. Si l'on part 
de l'adresse contenant le premier 
octet de ce ‘’descripteur”. nous trou- 
vons : 
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e Le nombre d'octets par éléments 
(8 = double précision. 4 = simple 
précision et 2 = entier). 

e Les codes ASCII des deux pre- 
miers caractères constituant le 
nom du tableau. Si le nom est 
formé par un seul caractère, le se- 
cond octet est nul. 

e Le nombre de caractères consti- 
tuant le nom du tableau moins 
ceux. Pour un nom formé de 
moins de trois caractères. cet octet 
est nul. 

e Les codes ASCII des caractères du 
nom (au delà du second carac- 
tère). avec le bit de signe posi- 
tionné à 1 ($CI. soit 193. pour un 
"A" dont le code ASCII est nor- 
malement 65). Pour un nom dont 
le nombre de caractères est infé- 
rieur ou égal à deux. cette zone 
n'apparaît pas. 

e Une valeur sur 24 bits (3 octets) 
représentant la position relative 
(par rapport à l'adresse courante) 
de la prochaine définition de ta- 
bleau ou variable. 

e Un octet contenant le nombre de 
dimensions du tableau. 

e Deux octets indiquant le nombre 
d'éléments par dimension, répétés 
autant de fois que nécessaire, On 
trouve ces valeurs dans l'ordre in- 
verse de la définition du tableau 
par DIM. Ainsi pour A(3.10). 
nous trouvons $00 $0B $00 $04 
pour OPTION BASE 0. et $00 
$0A $00 $03 pour OPTION 
BASE 1. On constate donc que la 
seule différence entre OPTION 
BASE 1 et OPTION BASE 0 se 
trouve dans la définition du nom- 
bre d'éléments. 


Si l'on prend des exemples concrets. 
pour ABCD*%(10). nous trouvons 
dans la table des arguments (OP- 
TION BASE O0): 


$02 : nombre d'octets par éléments. 
$41 $42 $02 $C3 $C4 : nom du ta- 
bleau: 

$00 $00 $5C : position relative de la 
prochaine définition de variable ou 
tableau: 

$01 : nombre de dimensions: 

$00 $0B : rombre d'éléments. 

$XX FSXX: premier élément du ta- 
bleau, dont l'adresse est retournée 
par VARPTR(A% (0)). 


Pour AB#(2.3.4). nous 
(OPTION BASE 1): 


$08 : nombre d'octets par éléments. 
$41 $42 $00 : nom du tableau. 

$00 $00 $C7 : adresse relative: 

$03 : nombre de dimensions. 

$00 $04: nombre d'éléments pour 
la troisième dimension. 


trouvons 
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$00 $03: nombre d'éléments pour 
la seconde dimension. 

$00 $02: nombre d'éléments pour 
la première dimension. 

XX FXX FXX FXX FXX EXX FXX 
$XX: premier élément de la pre- 
mière dimension. 


Position des éléments dans un 
tableau 


Pour un tableau à une dimension, il 
ny à aucun problème puisque les 
éléments sont placés les uns après les 
autres en mémoire. Ainsi, pour un 
tableau de variables en simple préci- 
sion, et si X représente l'adresse du 
premier élément, le second élément 
se trouve en X+4. le troisième en 
X+8, etc. 


Pour un tableau à deux dimensions 
(A(3.9) par exemple), les choses se 
compliquent un peu puisque l'on y 
trouve (la première colonne de chif- 
fres représente la première dimen- 
sion) : 


1-1 
2-1 
3-1 
4-1 
1-2 
2-2 
3-2 
4-2 
etc. 


Ceci explique la position inversée des 
indicateurs d'octets par éléments. 


Fonctionnement de 
CALL 


L'instruction CALL peut être consi- 
dérée comme une interface entre 
l'interpréteur Basic et le langage ma- 
chine. Elle permet l'appel d'une rou- 
tine et le retour au programme Basic 
(si tout se passe bien !). Il n'est pas 
possible. comme avec le Basic Ap- 
pleSoft de l'Apple II. d'appeler une 
routine avec un ‘CALL adresse de la 
routine”. Il faut obligatoirement que 
l'adresse se trouve dans une variable. 
Cette variable doit être de type sim- 
ple ou double précision car les adres- 
ses peuvent être supérieure à 65535 
(le microprocesseur MC 68000 L8 
peut adresser 16777216 octets direc- 
tement). De manière générale. et 
dans ce cas. il vaut mieux s'en tenir 
aux variables en simple précision 
puisque les variables en double pré- 
cision occupent deux fois plus de 
place en mémoire, pour le même ré- 
sultat. 


TRES IMPORTANT: ïil ne faut 
jamais utiliser une variable numéri- 
que qui ne fait pas partie d'un ta- 
bleau. si elle n'a pas été préalable- 
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ment définie, entre l'affectation de la 
variable destinée au CALL et le 
CALL lui même. En effet, l'initialisa- 
tion d'une nouvelle variable provo- 
que un déplacement des tableaux, ce 
qui fait que, si cette règle n'est pas 
respectée, le CALL peut appeler 
autre chose que l'adresse de bran- 
chement dans la routine, autrement 
dit: n'importe quoi. et bonjour la 
petite bombe! Cette particularité 
peut donner des programmes à l'as- 
pect étrange : la ligne 120 du pro- 
gramme joint à cet article paraît 
complètement stupide si l'on a pas 
connaissance de ce problème de dé- 
placement. 


Le CALL et la pile 


La notion de pile est bien connue 
des utilisateurs du Mac venant de 
l'Apple II. Il faut néanmoins signaler 
quelques différences entre la gestion 
de cette zone de mémoire par le 
6502 et le 68000 : 


e la pile du 6502 se trouve en page 
1 aux adresses $100 à $1FF alors 
que celle du 68000 peut être à 
n'importe quel emplacement: 

e la pile du 6502 est limitée à 256 
octets alors que celle du 68000 
peut théoriquement occuper 16 
Méga-octets (le pointeur de pile, 
qui est en fait le registre d'adresse 
7, contient 32 bits). Avec le Basic 
Microsoft, et par défaut, la pile oc- 
cupe 8 Ko. Ceci peut être modifié 
par l'instruction CLEAR : 
CLEAR..1024 réduit la taille de la 
pile à 1 Ko. les 7 Ko ainsi libérés 
étant affectés au programme 
Basic: 

e le pointeur de pile étant un regis- 
tre d'adresse, on peut agir sur son 
contenu de la même manière 
qu'avec les autres registres: ce 
n'est pas le cas avec le 6502. 


Nous conseillons à ceux d'entre-vous 
qui désirent en savoir plus sur le mi- 
croprocesseur MC 68000 de se pro- 
curer l'ouvrage intitulé "Mise en oeu- 
vre du 68000”, aux éditions SIBEX. 
Ce livre est relativement cher (198 
F), mais ce ne sera certainement pas 
un investissement inutile. Nous 
sommes en effet dans une situation 
paradoxale où l'on s'aperçoit que le 
seul ouvrage vraiment indispensable 
à ceux qui veulent connaître le fonc- 
tionnement du Macintosh n'est pas 
l'un des nombreux livres qui ‘trai- 
tent” directement de cet appareil ! 


Appel d’une routine sans pas- 
sage de paramètres 


Lors d’un appel de routine, l'adresse 
de retour à l'interpréteur Basic est 
placée au sommet de la pile, le 
contenu du pointeur de pile (Stack 
Pointer - SP) est décrémenté de 4 
(adresse sur 32 bits, donc 4 octets) et 
pointe sur le premier octet de 





l'adresse en question. Pour revenir 
au programme Basic, il suffit d'utiliser 
l'instruction RTS (retour de sous-pro- 
gramme) qui place dans le compteur 
ordinal (PC) le contenu de l'adresse 
pointée par le SP. qui est ensuite in- 
crémenté de 4 pour revenir à la va- 
leur initiale (avant le CALL). 


Appel d’une routine avec pas- 
sage de paramètres 


Il est possible de passer autant de 
paramètres que nécessaire entre le 
programme Basic et la routine en 
langage machine, ou dans le sens in- 
verse. Tous les types d'arguments 
peuvent être communiqués : 


e Les constantes ou expressions 
(B*10, par exemple) sont conver- 
ties en une valeur entière sur 16 
bits si possible, sur 32 bits sinon. 

e Les variables entières restent sur 
16 bits. 

e Les variables en simple ou double 
précision sont converties en une 
valeur entière sur 32 bits. 

e Lorsque l'on veut passer à la rou- 
tine l'adresse d'une variable nu- 
mérique plutôt que son contenu, il 
faut utiliser l'instruction 
VARPTR(X). Dans ce cas, la va- 
leur est passée sur 32 bits. 

e Pour une variable alphanuméri- 
que, VARPTR ne retourne pas 
l'adresse de la chaîne de caractè- 
res mais l'adresse où se trouvent. 
dans l'ordre, le nombre d'octets 
dans la chaîne (sur 16 bits) et 
l'adresse du premier caractère de 
la chaîne (sur 24 bits). 


Dans tous les cas. si l'on doit passer 
des arguments par l'intermédiaire de 
variables, que ce soit pour une va- 
leur ou une adresse, il est indispensa- 
ble que la ou les variables aient été 
préalablement définies. De même, 
lorsque l'on doit passer l'adresse 
d'un tableau de variables, il faut res- 
pecter les mêmes règles que pour 
une variable contenant une adresse 
destinée à un CALL. 


Les paramètres passés à la routine 
sont placés dans la pile dans l'ordre 
de leur apparition dans l'instruction 
CALL. L'adresse de retour au Basic 
est ensuite emnpilée. Ainsi, pour l'ins- 
truction CALL A(X%. Y#, VARPTR 
(Z%)), nous trouvons dans la pile : 


<— 5P 
Adresse de retour 
eu Basic (32 bits) 


Adresse de Z% 
(32 bits) 





Valeur de Y* 


(32 bits) 


_] Valeur de X8 (16 bits) 


Fonctionnement de la 
routine 


Le but de cette routine est le trans- 
fert du contenu d’un tableau à deux 
dimensions dans un tableau à une 
dimension, afin de pouvoir réaliser 
une animation avec une seule ins- 
truction PUT, alors qu'il en aurait 
fallu un grand nombre (32 dans 
notre exemple) avec la méthode nor- 
male. L'appel de cette routine s'ef- 
fectue avec le passage des paramè- 
tres suivants: adresse du premier 
élément de la première dimension du 
tableau de départ, adresse de l’élé- 
ment (X.0) du même tableau, 
adresse du premier élément du ta- 
bleau d'arrivée. Voyons ce que la 
routine fait de ces valeurs et, ligne 
par ligne, comment elle fonctionne. 


1 - Le contenu du registre d'adresse 
6 (32 bits) est placé dans la pile. Le 
pointeur de pile est décrémenté de 4 
(il pointe donc 4 octets plus haut que 
l'adresse de retour), et sa nouvelle 
valeur est placée dans A6 (registre 
d'adresse 6). Cette manoeuvre est 
indispensable lorsqu'il y a passage de 
paramètres. 

2 - L'adresse du premier élément 
du tableau de départ est la première 
valeur empilée au moment du 
CALL., et se trouve donc, compte 
tenu de la nature des 3 paramètres 
et de l'effet de l'instruction précé- 
dente, 16 octets plus bas que 
l'adresse pointée par A6. Cette ins- 
truction déplace donc une copie de 
l'adresse du premier élément du ta- 
bleau de départ dans le registre 
d'adresse AO. 

3 - Nous avons vu précédemment 
que les deux octets situés juste au 
dessus de l'adresse d'un tableau à 
deux dimensions indiquent le nom- 
bre d'éléments dans la première di- 
mension. L'instruction MOVE 
—2(A0),D0 effectue une copie de ce 
nombre dans les 16 bits de poids fai- 
ble du registre de donnée DO {les 16 
registres du 68000, qu'ils soient de 
donnée ou d’adresse, sont des regis- 
tres 32 bits). Nous nous servirons de 
cette valeur ultérieurement. 

4 - L'adresse du premier élément 
du tableau d'arrivée se trouve 8 
octets plus bas que l'adresse pointée 
par A6. Nous faisons une copie de 
cette adresse dans AO. 

5 - L'adresse du premier élément 
du tableau d'arrivée moins deux 
contient le nombre d'éléments. Nous 
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plaçons cette valeur dans les 16 bits 
de poids faible du registre de donnée 
DI. Ceci nous permet de savoir 
combien de mots de 16 bits devront 
être transférés et d'éviter ainsi des er- 
reurs catastrophiques, puisque la rou- 
tine ne pourra pas déplacer plus 
d'éléments que ne peut en contenir 
le tableau d'arrivée. 

6 - D1, notre compteur d'éléments, 
est décrémenté de un. Nous verrons 
plus loin l'intérêt de cette opération. 
7 - L'adresse du premier élément à 
déplacer depuis le tableau de départ 
est copiée dans le registre A1.. 

8 - La valeur du registre DO (qui 
contient le nombre d'éléments dans 
la première dimension du tableau de 
départ) est multipliée par deux, puis- 
que le transfert porte sur des mots de 
16 bits. 


Source de la routine de transfert 


1 4E56 0000 LINK 

2 206E 0010 HOUEA.L 
3 3028 FFFE HOUE 

4  206E 0008 HOUER.L 
5 3228 FFFE ROUE 

6 5341 SUBQ 

? 226E 000€ HOUER.L 
8 D080 ADD.L 

9 3001 BOUCLE  HOUE 

10 D3C0 ADDA.L 
11 5109 FFFA DBRA 

12 4ESE UHLK 

13 4E75 RTS 


10" Exemple d'animation utilisant une 
routine en langage machine pour le 
transfert de tableaux de variables 


entières. 


Il semble inutile de s’attarder sur le 
petit programme Basic dont la 
compréhension est aisée lorsque l'on 
a tous les éléments. Nous n'avons 
pas joint l'équivalent de ce pro- 
gramme en utilisant la méthode nor- 
male, car cela aurait pris beaucoup 


Restauration de  dis- 


quette “id 

Il arrive qu'il ne soit plus possible 
d'utiliser une disquette abimée par 
une micro-coupure, un RESET in- 
tempestif. durant un accès au dis- 
que. On parvient parfois à restaurer 
la disquette avec la procédure sui- 
vante, à démarrer avec l'appareil 
éteint: — Mettre la disquette fautive 
dans le lecteur intégré. st 

— Allumer l'appareil en maintenant 
enfoncées les touches Option et 
Commande. 
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9 - Tranfert du premier élément. 
L'adresse contenue dans AO étant 
auto-incrémentée, AO pointe sur 
l'élément suivant du tableau d'arrivée 
dès la fin d'exécution de cette ins- 
truction. 


10 - Dans le paragraphe consacré à 
la position des éléments dans un ta- 
bleau, nous avons vu que, dans le 
cas d'un tableau à deux dimensions, 
on trouve d’abord les premiers élé- 
ments, suivis des seconds éléments, 
et ainsi de suite... Donc, pour un ta- 
bleau A(3,9), l'élément (10) se 
trouve 8 octets plus loin que l'élé- 
ment (0,0). Ce déplacement se 
trouve dans DO, que nous ajoutons 
à Al pour obtenir l'adresse du pro- 
chain élément à transférer depuis le 
tableau de départ. 


20° 


11 - L'instruction DBRA D1 BOUCLE 
décrémente la valeur contenue dans 
les 16 bits de poids faible de D1. La 
valeur résultante est ensuite compa- 
rée à —1. Si le contenu de D1 est 
différent, le programme est dirigé 
vers l'étiquette BOUCLE”. Sinon, 
on passe à l'instruction suivante. On 
voit ici l'intérêt de la décrémentation 
de la ligne G puisque la sortie de 
boucle se fait lorsque D1 est égal à 
—1. En cas d'omission de la décré- 
mentation, on transférerait un élé- 
ment de trop, ce qui aurait certaine- 
ment pour conséquence un 
plantage” du Mac. 

12 et 13 - La routine a fait son tra- 
vail, on revient au programme Basic 
par RTS, sans avoir oublié de remet- 
tre les choses en état avec UNLK, 
qui est bien sûr l'inverse de LINK. 


30 DEFINT A-H:DEFSNG 1-Z:DIM C(19),B(65), 


f6, #0 A(31,65),F(3),D(3) 

16(A6),A0 40 DATA &h4E56,0,&h206E,16,&h3028,&hFFFE, 
-2(A0),D0 &h206E,8,&h3228,&hFFFE,&h5341,&h226E, 12, 
8(A6),A0 &hDO80,&h30D1,&hD3C0,&hS1C9, &hFFFA, 
-2(A0),D1 &hAESE,&h4E 75 

#1,01 50 FOR B=0 TO 19:READ C(B):NEXT 

12(A6),A1 60 FOR B=0 TO 3:F(B)=&HAASS:NEXT 

DO,D0 70 D(O)=11:D(1)=11 

(A1), (R0)+ 80 FOR B=0 TO 31:D(2)=1 1+B:D(3)=D(2) 

DO,AI 90 CALL FILLRECT(VARPTR(D(0)), VARPTR(F(O))): 
Di, BOUCLE CALL FRAMERECT(VARPTR(D(O))) 

A6 100 GET(11,11)-(42,42),B 


110 FOR E=0 TO 65:A(B,E)=B(E):NEXT:NEXT 
120 Y=0:X=0:Z=VARPTR(C(0)):Y=VARPTR(A(O,0)): 


de place et ne présentait pas d'inté- 
rêt. Ce dont vous pouvez être sûr, 
c'est qu'un tel programme prend 
vraiment beaucoup plus de place 
que celui que nous vous proposons. 
Le seul défaut de cette méthode est 
sa relative lenteur par rapport à une 


Disquette Macintosh 


La disquette Macintosh comporte les 
programmes Macintosh publiés dans 
les Pom's 14 à 16: le nouveau sys- 
tème, la police Cairo (Pom's 15) et 
le programme Disk Copy. La grande 
surprise que nous vous y avons 
ajouté pour ce numéro est le pro- 
gramme ‘’Localizer”’. 


Ce programme vous permet de mo- 
difier le clavier d'une disquette sans 


X=VARPTR(B(0)) 
130 FOR B=0 TO 31:CALL Z(Y,VARPTR(A(B,0)),X}: 
PUT(100,100),B,PSET:NEXT:GOTO 130 


série de PUT, mais ce n’est pas vrai- 
ment un inconvénient, d'autant 
qu'avec la méthode classique il est 
souvent nécessaire d'insérer des bou- 
cles de délai. Faites l'expérience. 


toucher au reste du système. C'est 
très utile car, quand vous remplacez 
le système d’une disq''ette US par 
un système français, vous écrasez 
tout ce qu'il pouvait y avoir par ail- 
leurs dans le système américain, par 
exemple les polices. C’est ce qu'ont 
découvert avec grand déplaisir cer- 
tains possesseurs de Multiplan US, 
après avoir copié un système français 
ne comportant pas la police Seattle. 
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MacPaint et le Basic 


Pom's 


Nous avons pensé qu'il pourrait être 
intéressant de récupérer des docu- 
ments MacPaint depuis le Basic, pour 
en faire, par exemple, des décors de 
programmes de jeux ou, simplement, 
des présentations soignées de pro- 
grammes plus sérieux. Le temps né- 
cessaire à la réalisation d'un pro- 
gramme se trouve sérieusement 
raccourci puisque l’on peut ‘planter 
le décor ” très rapidement avec Mac- 
paint. En revanche, s’il est possible 
de faire la même chose avec unique- 
ment le Basic, une présentation so- 
phistiquée risque d'utiliser toute la 
mémoire disponible sur un 128 Ko et 
d'occuper la place nécessaire pour la 
partie logique du programme. 


Mode d'emploi 


Il faut, bien sûr, créer un document 
MacPaint dont on utilisera seulement 


les 300 premières lignes de 49%6 
points, situées dans l'angle supérieur 
gauche de la page graphique. La 
deuxième étape consiste en la 
conversion du document en un fi- 
chier facile à charger depuis le Basic. 
Pour ce qui est de la méthode em- 
ployée pour transformer le docu- 
ment, vous pouvez vous reporter à 
l'article Personnalisez vos disquettes 
Macintosh”, publié dans ce numéro. 
Vous pourrez d’ailleurs constater que 
les programmes sont presque identi- 
ques, seule la méthode employée 
pour la sauvegarde du fichier final est 
différente. Une fois le fichier converti, 
quelques lignes de Basic suffisent à 
son chargement. 


Nous avons choisi d'utiliser 300 
lignes de 496 points parce que cela 
correspond au remplissage de la fe- 


nêtre de sortie du Basic Microsoft, 
lorsqu'elle est ouverte au maximum. 
Cependant, vous pouvez choisir une 
autre dimension en modifiant les 
lignes 70 et 80 du programme de 
conversion. Pour un document de 
200 lignes de 256 points, il faut que 
L (nombre de lignes) soit égal à 200, 
et que M (nombre de mots de 16 
bits par ligne) soit égal à 16 (256 / 

6 = 16). De même, le petit pro- 
gramme de chargement doit être mo- 
difié en conséquence. 


Pour le chargement, bien que le pro- 
gramme soit très court, il est encore 
possible de libérer 66 octets en ‘de- 
letant”’ le tableau A(32), inutile une 
fois l'affichage de l’image effectué. 








10‘ Conversion de fichiers MacPaint en 
fichiers utilisables depuis un programme 
Basic. 

20° 

30 DEFINT A-Y:OPTION BASE 1:DIM A(36): 

ON ERROR GOTO 230 

40 CLS:CALL TEXTFONT(O) 

42 PRINT"Ce programme transforme un document 
MacPaint” 

43 PRINT'en un fichier séquentiel utilisable depuis 
un” 

44 PRINT'programme en Basic Microsoft.” 

45 PRINT'La partie supérieure gauche du document 
est utilisée” 

46 PRINT"(300 lignes * 496 colonnes).":PRINT 

SO INPUT'Fichier MacPaint à convertir ? ”,Z$: 
OPEN"i",1,2$ 

60 INPUT'Fichier à créer ? ",Z$:OPEN'o",2,2$ 

70 L=300 

80 M=31 

90 PRINT:PRINT"Conversion en cours...” 

100 Z$=INPUT$(512,1) 

110 FOR 1=1 TO L:FOR J=1 TO MA(J)=O:NEXT:X=0 

120 NO=ASC(INPUT$(1,1)}:1F NO<185 THEN O=NO+ 1: 

GOTO 170 ELSE 0=256-N0O+ 1: 
C=ASC(INPUT$(1,1)) 
130 FOR J=1 TO O:IF (J+X+1) MOD 2 THEN 
A((J+X+1)\2)=A((J+X+1)\2) OR C:GOTO 160 
140 CI=C*256:1F Cb32767 THEN CI=CI-65536l! 
150 H=CEA((J+X+1)\2)=A((J+X+1)\2) OR H 


160 NEXT:X=X+0:GOTO 210 

170 FOR J=1 TO O:X=X+ 1:C=ASC(INPUT$(1,1)): 
|F (X+1) MOD 2 THEN A((X+1)\2)=A((X+1)\2) OR 
C:GOTO 200 

180 CI=C*256:1F Cb32767 THEN CI=CI-65536! 

190 H=CI:A((X+ 1)\2)=A((X+ 1)\2) OR H 

200 NEXT 

210 IF X<72 THEN 120 

220 FOR J=1 TO M:PRINT#2,A(J):NEXT:NEXT: 
CLOSE:PRINT"Conversion effectuée." :GOTO 240 

230 CLOSE:IF ERL=220 THEN PRINT'La disquette est 
saturée l’:RESUME 240 ELSE IF ERL=SO THEN 
RESUME 50 ELSE RESUME 60 

240 PRINT’ Autre fichier à convertir ? (O/N) 

250 Z$=INKEYS:1F Z$="" THEN 250 ELSE IF Z$="0" OR 
2$="o" THEN 40 ELSE IF Z$="N" OR Z$="n" THEN 
END ELSE 250 





10‘ Chargement et affichage d'une image 
réalisée avec Macpaint et transformée 
avec le programme de conversion. 

20 DEFINT A-Z:CLS 

30 DIM A(32):A(0)=496:A(1)=1 

40 OPEN'"i",1,"nom du fichier” 

50 FOR 1=0 TO 299:FOR J=0 TO 30: 

INPUT # 1 ,A(J+2):NEXT: 
PUT (0,1), A:NEXT:CLOSE 
60 GOTO 60 
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La tendance actuelle des construc- 
teurs d'ordinateurs et, en particulier, 
d'Apple, est de dire qu'il n'est pas 
nécessaire de savoir programmer 
pour utiliser ce type de machine. Si 
cela est vrai, il est aussi indéniable 
que la plupart des particuliers qui 
possèdent un micro-ordinateur pas- 
sent plus de temps à le programmer 
qu'à utiliser des programmes tout 
faits. Dans un même ordre d'idée, on 
nous répète sans cesse que l'on peut 
tout faire avec Multiplan; nous serons 
prêts à le croire le jour où l'on nous 
présentera un tel tableur écrit en ce 
“langage”. Cela nous rappelle d'ail- 
leurs la grande question métaphysi- 
que: ‘est-ce l'oeuf qui a pondu 
l'oeuf ou l'oeuf qui a pondu 
l'oeuf...” 

Cette entrée en matière quelque peu 
rageuse traduit notre sentiment, lors- 
que l'on constate qu'aucune informa- 
tion technique n'est fournie à l’utilisa- 
teur, qui a quand même investi 
quelques milliers de francs dans un 
appareil, et serait en droit d'en savoir 
un peu plus. Nous sommes assez loin 
des Tutorials” et autres manuels de 
référence de l'Apple IL et ce n'est 
pas la “littérature spécialisée” actuelle 
qui suffit à combler le vide. Ceci 
étant dit, lorsque l'on regarde ce qui 
se passe ‘à l'intérieur”, le Macintosh 
est une machine passionnante qui 
utilise un processeur remarquable, et 
Pom's a bien l'intention ‘d'ouvrir la 
boîte”. 


Pour mieux connaître le fonctionne- 
ment de la “chose”, nous n'avons 
pas trouvé d'autres solutions que le 
désassemblage de certaines zones de 
mémoire. Ce n'est pas une mince af- 
faire, sans désassembleur, d'autant 
plus que toutes les instructions du 
68000 sont codées sur au moins 16 
bits, ce qui fait. étant donnés les 14 
modes d'adressage autorisés, un 
grand nombre de codes machine 
possibles. 


Dès le début de nos recherches. 
nous avons trouvé de nombreux 
codes ne correspondant pas à des 
instructions valides. Après avoir 
douté quelques instants de la fiabilité 
de notre méthode de désassemblage 
manuel, il s'est avéré que ces instruc- 
tions illégales étaient utilisées pour 
l'appel des routines situées dans la 
ROM de 64 Ko, ainsi que pour quel- 
ques routines en RAM. 


Instructions 
illégales 


Lorsque le processeur rencontre un 
code ne correspondant pas à une 
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Appel des routines en ROM 


Gérard Michel et Jean-Luc Bazanegue 


instruction valide, il entame une pro- 
cédure d'exception. Deux cas peu- 
vent se présenter: code dont les 
quatre bits de poids fort correspon- 
dent à la combinaison binaire 1010 
ou 1111 ($A ou $F): code dont les 
quatre bits de poids fort ne forment 
pas la combinaison 1010 ou 1111, 
mais dont la combinaison binaire ne 
permet pas de reconnaître une ins- 
truction valide. Nous ne traiterons ici 
que de la première solution, utilisée 
pour l'appel des routines. 


Une procédure d'exception est effec- 
tuée de la manière suivante : 


e Le processeur passe en mode su- 
perviseur, si toutefois il n'y était 
pas déjà. En effet, le 68000 peut 
fonctionner dans deux modes dif- 
férents : le mode utilisateur, dans 
lequel la totalité des instructions 
ne peut pas être utilisée, et le 
mode superviseur qui autorise 
l'exploitation de toutes les instruc- 
tions. Nous ne nous attarderons 
pas sur ce point car il semble que, 
sur le Macintosh, le 68000 soit 
toujours en mode superviseur. 

e La logique du processeur génère 
un numéro de vecteur qui est: 10 
pour un code commençant par 
1010: 11 pour un code commen- 
çant par 1111. 

e Le contenu actuel du compteur 
ordinal (Program Counter - PC) 
est mis en pile. Îl est important de 
signaler que l'adresse placée dans 
la pile est celle de l'instruction illé- 
gale provoquant l'exception. 

e Le contenu du registre d'état 
(Status Register - SR) est mis en 
pile. À ce stade. le contenu du re- 
gistre pointeur de pile (Stack Poin- 
ter - SP) a été décrémenté de 6. 
par rapport à sa valeur avant le 
début de la procédure d'excep- 
tion. puisque nous avons empilé le 
PC (32 bits) et le SR (16 bits). 

e La valeur du numéro de vecteur 
est multipliée par quatre: pour une 
exception provenant d'un code 
dont les quatre bits de poids fort 
sont à 1010, le numéro de vecteur 
est 10, ce qui nous donne 40. 
Ceci correspond à l'adresse conte- 
nant l'adresse à placer dans le PC. 
donc l'adresse de la prochaine ins- 
truction à exécuter. 


Tous les appels de routines étant ef- 
fectués par des instructions illégales 
commençant par 1010, nous allons 
étudier de plus près le contenu de 
l'adresse 40. et surtout ce qui se 
passe lorsque l'on a obtenu cette va- 
leur. 





Routine de calcul 
des adresses 


Pour savoir quelle est l'adresse 
contenue par l'adresse 40, il suffit, 
sous Basic, de faire des "PEEKs" aux 
adresses 40, 41, 42 et 43. Il est d'ail- 
leurs important de signaler que 
toutes nos recherches sont effectuées 
avec le seul Basic Microsoft, soit avec 
des moyens accessibles à tout un 
chacun. Aux adresses sus-nommées, 
nous trouvons : O0, 64, 16 et 24, ce 
qui nous donne l'adresse 0 * 65536 
+ 64 « 4096 + 16 x 256 + 24, soit 
266264 ou, en  hexadécimal, 
$041018. Cette adresse (impression- 
nante quand on vient de l'Apple Il) 
correspond au point d'entrée dans 
une routine (en ROM) qui calcule les 
adresses des autres routines, en fonc- 
tion de la valeur du code qui a pro- 
voqué la procédure d'exception. 
Toujours à l'aide du Basic, nous 
avons lu les codes machine situés à 
partir de cette adresse, puis désas- 
semblé (à la main!)}, ce qui nous 
donne la ‘’pseudo-liste  d'assem- 
blage” que vous trouverez à la fin de 
cet article. La méthode employée 


pour le calcul des adresses n'étant 


pas forcément évidente, nous vous 
proposons quelques explications. 
Afin de les clarifier, nous allons pren- 
dre le cas du code illégal $A94C., qui 
provoque l'appel de la routine qui in- 
verse l'état des pixels constituant la 
barre des menus. 


1 - Le contenu du pointeur de pile 
est décrémenté de deux. 

2 - Le registre d'adresse A2, ainsi 
que les registres de donnée D1 et 
D2. sont sauvegardés dans la pile 
qui, à ce stade. se présente ainsi : 


<— SP actuel 
Registre D1 


Registre D2 


Registre A2 


<— SP ligne 1 





EE 


41 


42 


‘| Ancienne valeur 
du SR 


Ancienne valeur 
du PC 





3 - Le contenu de l'adresse pointée 
par le SP plus 16 {ancienne valeur 
du PC, soit l'adresse de l'instruction 
invalide) est transféré dans le registre 
d'adresse A2. 

4 - Une copie de l'instruction inva- 
lide est placée dans les 16 bits de 
poids faible du registre de donnée 
D2. Ainsi, D2 (registre 32 bits) 
contient $XXXXA94C, les "X"” repré- 
sentant la valeur indéterminée conte- 
nue dans les 16 bits de poids fort. 
Après exécution de cette instruction, 
le registre A2, qui est auto-incré- 
menté, pointe sur l'instruction à trai- 
ter au retour de la routine. 

5 - L'adresse de retour est placée 
dans la pile, écrasant ainsi l'adresse 
de l'instruction illégale. 

6 - Une copie des 16 bits de poids 
fort de D2, qui contiennent l'instruc- 
tion illégale, est placée dans DI1. 

7 - Le code de l'instruction illégale 
est comparé à la valeur immédiate 
$A800. 

8 - Le bit carry” du registre d'état 
est placé à 1 si le code de notre ins- 
truction illégale est inférieur à $A800. 
Comme ce n'est pas le cas, nous 
passons à l'instruction suivante. 

9 - L'adresse de l'instruction suivante 
(ligne 10) est mis en pile. Le poin- 
teur de pile est décrémenté de 4 et le 
compteur ordinal est chargé avec 
l'adresse de l'instruction située à l'éti- 
quette "ETQ2”. Pour que les choses 
soient bien claires: le pointeur de 
pile contient l'adresse où est sauve- 
gardée le registre D1, moins 4. 

16 - Un ‘ET’ logique est réalisé 
entre les 16 bits de poids fort de D2 
et la valeur immédiate $O1FF. 
Comme nous avons $A94C dans le 
registre, la valeur résultante est 
$SXXXX014C. 

17 - Le bit 15 du registre D2 (bit de 
signe lorsque l’on utilise seulement 
les 16 bits de poids faible) est copié 
dans les 16 bits de poids fort. Le bit 
15 étant à O, nous obtenons la va- 
leur $0000014C. Ceci permet de 
supprimer d'éventuelles valeurs para- 
sites. 

18 - On ajoute le registre D2 à lui- 
même, ce qui revient à multiplier son 
contenu par 2. Il contient maintenant 
$00000298. 

19 - L'adresse $000400 est chargée 
dans le registre A2 

20 - Le contenu (16 bits) de 
l'adresse calculée en ajoutant la va- 
leur de A2 à celle de D2 est placé 
dans le registre D2. $000400 + 


$000298 = $000698. Cette adresse 
contient $8B9B. 

21 - Le contenu des 16 bits de poids 
faible du registre D2 ($8B9B) est 
multiplié par deux. On a maintenant 
$1736 et le bit carry” (retenue) est 
positionné à 1 puisque le résultat de 
l'opération ne ‘tient” pas dans 16 
bits. 

22 - L'instruction BCS (branchement 
si retenue à 1) nous dirige vers l'éti- 
quette "ETQ4”. 

25 - Les 32 bits situés à l'adresse 
$02B2 sont ajoutés aux 32 bits du 
registre D2. Nous trouvons la valeur 
$00000B00, que nous ajoutons à 
$00001736 pour obtenir 
$00002236. Cette valeur est 
l'adresse de la routine d'inversion de 
la barre des menus. Cette routine 
n'est pas en ROM puisque l'adresse 
de base de cette dernière est 
$040000, adresse que nous trouvons 
d’ailleurs en $OZ2AE. Nous avons 
constaté que les instructions illégales 
commençant par $A9 provoquent 
toujours un branchement sur une 
routine en RAM, alors que celles qui 
débutent par $A8 concernent des 
routines en ROM. 

26 - Nous retournons à la ligne 10, 
après avoir incrémenté le pointeur de 
pile de 4. Ainsi, le SP pointe à nou- 
veau sur l'adresse de sauvegarde de 
D1, comme avant l'exécution de la 
ligne 9. 


10 - Le contenu de D2 (adresse de 
la routine) est placé dans la pile à 
l'endroit où se trouvaient les deux 
octets libres et l'ancienne valeur du 
registre d'état (d'où l'intérêt de la 


première instruction - SUBQL 
#2,SP - qui libérait deux octets dans 
la pile). 


11 - Comparaison du code de l'ins- 
truction illégale (dont nous avions fait 
une copie à la ligne 6) avec la valeur 
$ACOO. Le bit carry” du registre 
d'état est placé à 1 ou à 0 en fonc- 
tion du résultat de la comparaison, et 
sera utilisé un peu plus tard (quel- 
ques microsecondes !). 

12 - Les valeurs sauvegardées à la 
ligne 2 sont replacées dans les regis- 
tres D1, D2 et A2 afin d'obtenir la 
configuration de départ. De même, le 
SP contient l'adresse qu'il contenait 
lors de l'entrée dans la routine, 
adresse où se trouve maintenant 
l'adresse de la routine. 

13 - Nous utilisons ici le bit carry”, 
positionné par la comparaison de la 
ligne 11. Si le code est inférieur à 
$ACO0, ce qui est le cas, nous pas- 
sons à l'étiquette "ETQ3”. 

15 - Puisque le SP pointe sur 
l'adresse de la routine, l'instruction 
RTS provoque le branchement. Le 
SP est ensuite incrémenté de 4, 
pointant ainsi sur l'adresse de retour 
au programme appelant. 


Routine de calcul des adresses des routines en ROM 


l 041016 556F 
2 041014 48E76020 
3 O4101E 246F0010 
< 041022 3414 
5 041024 2F4A0010 
6 041026 3202 
T 041024 0C42A600 
6 04102E 6534 
9 041030 6112 
10 041032 2F42000€ 
11 041036 OC41ACO0 
12 041034 4C41AC00 
13 04103E 6502 
14 041040 2E9F. 
15 041042 4E75 
16 041044 024201FF 
17 041048 48c2 
16 041044 D442 
19 04104C 45F60400 
20 041050 34322000 
21 041054 D442 
22 041056 6506 
23 041056 D4B802AE 
24 04105€ 4E75 
25 04105E D4B602B2 
26 041062 475 
27 041064 06620006 ETQI 
28 041068 6618 
29 041064 61D8 
30 04106C 2442 





ETQ3 
ETQ2 


ETQ4 


SUBQL #2,5P 
MOVEML A2/D2/D1,-(SP) 
MOVEA.L $0010(SP),A2 
MOVE (A2)+,D2 
MOVEL A2,$00 10(SP) 
MOVE D2,D1 

CMPI #$A600,D2 
BCS ETQI 

BSR ETQ2 

MOVEL D2,$000C(SP) 
CMP #$ACO00,D1I 
MOVEML (SP)+,D1/D2/42 
BCS ETQS 

MOVEL (SP}+,(SP) 
RTS 

ANDI #$01FF,D2 
EXTL D2 

ADD D2,D2 

LEA $000400,42 
MOVE O(A2,D2),D2 
ADD D2,D2 

BCS ETQ4 

ADDL $02AE,D2 

RTS 

ADDL $02B2,D2 

RTS 

BCLR +6,12 

BNE ETQS 

BSR ETQ2 

MOVEAL D2,A2 
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31 04106E 48E700C0 
32 041072 4E92 
33 041074 ACDF0300 
34 041076 ACDF0406 
35 04107C 564F 
36 04107E 4440 
36 041060 4E75 
39 041062 61C0 
40 041064 2442 
41 041066 2F09 
42 041086 4E92 
43 041064 225F 
44 041080 6OEA 








en permanence. 








4E56 0000 
202E 0010 


ATIE 
226E 


0008 
3268 
226E 000€ 
2008 
4840 


3260 
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Source de la routine 


LINK 
MOVE .L 


HesPtr 
MOUER.L 


HOVE 


HOUER.L 


HOUE .L 


SHAP 


ROUE 


ETQS 


Réservation de mémoire 


La documentation qui accompagne 
le Basic Microsoft signale, à juste 
titre, que les routines en langage ma- 
chine doivent être relogeables, c’est- 
à-dire que leur exécution doit pou- 
voir se faire quelle que soit leur posi- 
tion en mémoire. La raison de cette 
contrainte est que tout ce qui se 
trouve en mémoire vive se déplace 
Par exemple, la 
création d’une variable déplace les 
tableaux de variables préalablement 
définis. Le système n’est pas critica- 
ble, puisque le 68000 permet la réa- 
lisation de codes relogeables très sim- 
plement, mais il peut être utile de se 
réserver un bloc de mémoire situé à 
une adresse connue, et qui n'aurait 
pas la bougeotte, pour faire des 
essais ou installer des tampons. 


A6, #0 ; voir l'article "CALL : exemple d'application” 
16(A6),D00 ; déplace une copie du contenu de la variable N! (situé 
; dons le pile) dans le registre de donnée DO 
; Trep (voir l'article “Appel des routines en ROM”) 
8(A6),A1 ; plece l'adresse de le variable A2% dans le registre 
; d'adresse A1 
A0, (A1) ; les 16 bits de poids faible de l'adresse du bloc de 
; mémoire sont placés à l'adresse de la variable A2% 
12(A6),A1  ; place l'adresse de la vorieble A13 dons le registre 
; d'adresse A1 
AO, DO ; Copie du registre d'adresse AO dons le registre de 
; donnée DO 
DO ; inverse les 16 bits de poids fort et les 16 bits de 
; poids faible de DO 
DO, (A1) ; les 16 bits de poids fort de l'adresse du bloc de 


MOVEML A1/A0,-(SP) 
JSR (A2) 
MOVEML (SP}+,40/A1 
MOVEM.L (SP}+,D1/D2/A2 
ADDQ *4,5P 

TST DO 

RTS 

BSR ETQ2 
MOVEA.L D2,42 
MOVEL Al,-(SP) 
JSR (A2) 
MOVEAL (SP}+,A1 
BRA ETQ6 


Nous vous proposons une petite rou- 
tine qui créée une zone de mémoire 
fixe du nombre d'octets de votre 
choix, en fonction de la valeur conte- 
nue par la variable N! (256 dans 
notre exemple). L'adresse du pre- 
mier octet de la zone est choisie par 
le système de gestion de la mémoire. 
Les 16 bits de poids fort de l'adresse 
sont placés dans A1%, les 16 bits de 
poids faible dans A2%. Le calcul de 
la position du bloc en mémoire est 
donc facile. 


Il faut utiliser cette routine avec pru- 
dence car le système cherche tou- 
jours de la place, et fera tout pour en 
trouver, quitte à détruire un bloc de 
mémoire relogeable non protégé, 
mais utilisé par le Basic. Si l’on ne 
prend pas beaucoup de risque en se 
créant un bloc de 256 octets, ce 


n'est pas le cas si l’on essaie de ré- 
4 


server 10 Ko. 





Nous avons étudié un seul cas car il 
n'est pas possible de les passer tous 
en revue. Néanmoins, le principe 
reste le même pour tous les appels 
de routines et l'important est de 
connaître la méthode utilisée. Pour la 
routine d'inversion de la barre des 
menus, on peut vérifier que notre 


calcul est juste en faisant, sous 
Basic : 
Al=&h2236:CALL A! 

F4 





1 "Réservation d'un bloc fixe de # 
octets 





2 

10 DIM R#(14) 

20 DATA &h4E56 &h0000 &h202E, 
&h0010 &hA 1 1E &h226E &h00086, 
&h3268,&h226E &h000C &h2008, 
&h4840 &h3280 &h4£SE &h4E75 

30 FOR 18-0 TO 14:READ R&(IS):NEXT 

40 A18-0:A28-0:N-256 

50 MI=VARPTR(R&(0)) 

60 CALL MINI, VARPTR(A1#), 
VARPTR(A28)) 

70 IF A1#<0 THEN AlsA 1865536! 
ELSE Afl:A1% 

80 IF A2%<0 THEN A2I=A2%+65536! 
ELSE A2}: A2% 

90 AI=A1#65836H+A21: 

PRINT ‘Le premier des” N! "octets se 
trouve à l'adrégse” A! 










































; mémoire (qui sont meintenent dans les deux octets 
; de poids faible de DO) sont placés à l'adresse où se 
; trouve le vorieble A1 
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Entrée analogique améliorée 


J. Gunther 


Les entrées analogiques de l'Apple, 
également appelées ‘entrées des ma- 
nettes de jeux”, servent à numériser 
la valeur d'une résistance, variant de 
0 à 150 kilo-ohms et contenue, par 
exemple, dans un joystick. 


Il est facile de brancher autre chose 
qu'un potentiomètre : une thermis- 
tance (mesure de la température), 
une  photorésistance (mesure de 
l'éclairage), ou un transistor (mesure 
de l'intensité) peuvent être utilisés 
par certaines applications. 


En Basic, les entrées analogiques 
sont mesurables par les instructions 
PDL (0) à PDL (3) qui retournent 
une valeur comprise entre O0 et 255 
(en pratique, l’interpréteur Applesoft 
se contente d'appeler la routine 
PREAD située en $FBIE). 

Pour utiliser ces entrées comme ins- 
trument de mesure, il serait intéres- 
sant d’avoir une meilleure résolution. 


Le principe général est de décompter 
le temps de décharge d’une capacité 
à travers la résistance étudiée. Le 
’top” de départ est donné par un 
appel à la mémoire $C070, et le 
top” d'arrivée par la remise à zéro 
du bit 7 de la mémoire $C064 + X, 
X étant le numéro de l'entrée. 


Le petit programme suivant : 
LDOX #0 

LD4 $C070 
LDA ##S0 
INX 

BIT $C0é4 
EMI BOUCLE 
RTS 


montre qu'à la sortie, le contenu du 
registre X varie de 0 à 255, puis re- 
vient à 0 et termine vers 130 lorsque 
l'on tourne le potentiomètre. La ré- 
solution peut donc être améliorée. 


BOUCLE 


Le problème consiste à déterminer le 
nombre de tours effectués. Par le 
procédé ci-dessus, une valeur de 40 
en sortie n'indique pas si la résis- 
tance se trouve à 40 ou à 255 + 40. 


C'est donc l’objet du programme 
ANALOG, qui améliore considérable- 
ment la résolution (environ 3 fois). 
En contre-partie, le temps de recher- 
che peut sembler long (jusqu’à 2 se- 
condes) mais toutes les applications 
des entrées analogiques de l'Apple 
ne concernent pas des jeux vidéo à 
haute vitesse ! 


Pour rester simple, le programme ne 
contrôle que l'entrée numéro O (il 
faut modifier la variable d'assem- 
blage ENTREE du source) et stocke 
le résultat aux adresses 00 et O1. Le 
programme ANALOG.DEMO fournit 
une démonstration. 








LORD DEEE MODERNE NE x 
2 + ANALOG * 33 INC VAL incrimente 
: DE DE DE DEN DE DEEE NEED NEED DEEE DE DE DEEE EN 34 HE Li 
35 INC VAL+I 
: : J. Gunther 36 INC VAL 
à 37 BNE  DEBUT =jmp 

# 
He : assembl€ AÂ/29sep84 Big Mac 38 FINI RTS 
79 * Programme permettant une lecture 

8 haute rsoiution des *8000.8029 
10 *# entres analogiques. 
11 8000- A9 01 85 O1 85 00 AD 70 
12 ENTR = 

A dE 8008- CO A6 00 A4 O1 CA DO FD 
13 VAL = $00 page ztro 8010- 88 DO FA AD 64 CO 10 11 

pour simplifier 8018- A9 80 2C 64 CO 30 FB Eé 
ps OR 8020- 00 DO E3 Eé 01 Eé 00 DO 
16 STA VAL+1 8028- DD 60 
17 STA VAL 
18 
19 DEBUT LD +C070 top de d{p 1 REM x*xxx  ANALOG.DEMO xx*xxx 

art 2 REM Aâ/29sep84/pour J.Gunther 
20 LDX VAL double bau 3 ONERR GOTO 99 

cle d’attente 10 GR : COLOR= 2: FOR I = Q TO 47: HLIN 
21 LDY VAL+I 0,39 AT I: NEXT : TEXT : HTAB 1: V 
22 BOUCLE DEX TAB 
23 BNE BOUCLE 20 INVERSE : PRINT "  DEMONSTRATION DE L 
24 DEY ECTURE ANALOGIQUE ": NORMAL 
25 BNE BOUCLE 30 PRINT CHR$ (4)"BLOAD ANALOG,A$300": 
26 REM entid3rement relogeable 
27 LDA $CO6é4+ENTREE 40 PRINT : PRINT SFC( 4)"(APPUYEZ SUR C 
28 BPL FINI fini si < TRL-C POUR FINIR)" SPCC S) 

$80 50 POKE 32,13: POKE 33,14: POKE 34,5: PQ 
29 LDA #$eû KE 35,23: HOME PRINT 
30 BOUCLEZ2 BIT S$SCOé4+ENTREE laisse 1] 60 CALL 768: PRINT " PDL(O) = " RIGHTS ( 

a dtcharge se terminer "00" + STR$S (257 * ( PEEK (1) - 1 
31 BMI  BOUCLE2 ) + PEEK (0) - 12,3)" ";: GOTO 60 
32 97 TEXT : HOME 
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Un désassembleur en Applesoft et WPL 


Pom's a déjà ouvert ses pages à des 
auteurs, parmi les plus prestigieux”, 
qui s'étaient attachés à démontrer 
que le fameux Visicalc pouvait servir 
à bien d'autres choses que celles 
auxquelles il semblait essentiellement 
destiné. 

Dans le même ordre d'idées, je vou- 
drais vous proposer ici une utilisation 
originale de WPL, le petit langage de 
programmation du traitement de 
‘textes Applewriter Il et //e. Il s'agit en 
fait de le mettre à contribution, en 
complément d'un programme en Ap- 
plesoft, pour reconstituer à partir 
d'un code en langage machine un fi- 
chier source en assembleur symboli- 
que exploitable ensuite par LISA 2.5. 


Evidemment, il ne faut pas attendre 
d'un tel système des performances 
extraordinaires en matière de désas- 
semblage, qu'il s'agisse de la sou- 
plesse des manipulations où de la ra- 
pidité des traitefhents. Mais il vous 
permettra néanmoins de réaliser un 
désassemblage précis, correct, et 
votre fichier source aura au moins le 
privilège de n'avoir pas été engendré 
par des moyens tout à fait ordinai- 
res. 


Introduction sous forme 
d'exemple 


Pour illustrer les possibilités du logi- 
ciel, nous allons présenter un pro- 
blème concret de désassemblage. ap- 
pliqué à un petit morceau de la ROM 
Applesoft, situé entre les adresses 
$D31F et $D392. Ce fragment n'a 
pas grande signification en lui même. 
mais comporte une zone de données 
et une zone de programme. 


Voici le listing que l'on obtient avec 
la commande L du moniteur : 


Listing 1 

D31F- 46 4F LSR $4F 
D321- 52 PP? 

D322- 40 55 4C EOR $4C55 
D325- 41 2 EOR (#20 ,X) 
D327- 54 ??? 

D328- 4F ??? 

0329- 4F ??? 


D324- 20 43 4F JSR $4F43 
D32D- 4D 50 4C EOR #4C50 
D330- 45 D8 EOR $08 


D332- 43 PP? 
D333- 41 4€ EOR (#$4E,X) 
D335- 27 PP? 
D336- 54 É A È 


D337- 20 43 4F JSR $4F43 
D33Â- 4E 54 49 LSR $4954 
D330- 4E 55 CS LSR $CS555 


D340- 55 4E EOR #4E,X 
D342- 44 27? 

D343- 45 dé EOR $46 
D345- 27 27? 
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D346- 44 2?? 
D347- 20 46 55 JSR #5546 
D34A- 4E 43 54 LSR 55443 


D34D- 49 4F EOR ##$4F 
D34F- CE 20 45 DEC $4520 
D3S52- 52 PP? 
D353- 52 ?P?? 
D354- 4F ??? 
D355- 52 PP? 
D35s- 07 ??? 
D357- 00 BRK 


D358- 20 49 4E JSR $4E49 
D358- 20 00 O0D JSR $0D00 


D35E- 42 ??? 
D35F- 52 27? 

D360- 45 41 EOR #41 
262- 48 77? 

D363- 07 ??? 

D364- 00 BRK 

D365- BA TSX 

D366- E8 INX 

D367- E8 INX 

D368- E8 INX 

D369- E8 INX 

D36A- BD 01 01 LDA #0101,X 
D36D- C? 81 CMP HS81 
D36F- DO 21 BNE #D392 


D371- AS 86 LDA #86 
D373- D0 0A BNE $037F 
D375- BD 02 01 LDA #0102,X 


D378- 85 85 STA 585 
D37A- BD 03 01 LDA #0103,X 
D37D- 85 86 STA 586 


D37F- DD 03 01 CMP $0103,X 
D382- D0 07 BNE $028B 
D384- AS 85 LDA $85 
D386- DD 02 01 CMP $0102,X 


D389- F0 07 BEQ $0392 
D38B- SA TXA 
D38C- 18 CLC 
D38E- 69 12 ADC #4#12 
D38F- AA TAX 
D390- D0 D8 BNE #036A 
D3?92- 60 RTS 


Ce listing met bien en évidence la 
zone de données ($D31F à $D364). 


Le module Applesoft du désassem- 
bleur proposé (programme 
DSMTEXT) utilise la routine L du 
moniteur, plus des possibilités de lis- 
ting en hexadécimal ou en ASCII. 
Les listings réalisés. au moyen de 
commandes sur lesquelles nous re- 
viendrons. sont créés à l'écran ou sur 
disquette. 


À partir des deux commandes : 
D31F.D364A 

D365.D392L 

il donne le résultat suivant : 


Listing 2 


D31F- ASC ‘FORMULA TOO COMPLE” 
D331- ASC "“X" 

D332- ASC ‘CAN’T CONTINU” 
D33F- ASC "“E” 

D340- ASC ‘UNDEF‘’D FUNCTIO” 
D34F- ASC "N" 

D350- ASC ‘ ERROR’ 

D356- HEX 0700 

D358- ASC ‘ IN ” 

D3SC- HEX 0000 
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D3SE- ASC ‘BREAK’ 
D363- HEX 0700 


D365- BA TSX 

D366- E8 INX 

D367- E8 INX 

D368- E8 INX 

D369- E8 INX 

D36A- BD 01 O1 LDA #80101,X 
D36D- C9 81 CMP #$81 
D36F- DO 21 BNE $D392 
D371- AS 86 LDA $86 


D373- D0 04 BNE $037F 
D375- BD 02 01 LDA $0102,X 
D378- 85 85 STA 385 
D374- BD 03 01 LDA 80103,X 
D37D- 85 86 STA $86 
D37F- DD 03 01 CMP $0103,X 
D382- D0 07 BNE $0388 
D384- AS 85 LDA $85 
D386- DD 02 01 CMP $0102,X 


D389- F0 07 BEQ $0372 
D38B- 84 TXA 

D38C- 18 CLC 

D38D- 49 12 ADC ##12 
D38F- A TAX 

D3?70- D0 D8 BNE $D36A 
D372- 40 RTS 


La syntaxe choisie pour le désassem- 
blage en ASCII est la syntaxe LISA, 
avec les options ASCII positif (bit de 
poids fort à O0 - ASC') ou négatif (bit 
de poids fort à 1 - ASC”), et passage 
en HEX pour les codes de contrôle. 


L'étape suivante consiste à remettre 
en forme la présentation des lignes 
pour obtenir une syntaxe assembleur 
source”, puis à réaliser l'analyse du 
texte : 

® rassembler les arguments, 

e créer les tables des variables (page 
0 et adresses 4 chiffres), 
® introduire des noms symboliques 
et éliminer toutes les adresses en 

tête. 


C'est un travail typique de traitement 
de texte, c'est pourquoi on fait main- 
tenant appel à un module écrit en 
WPL (DSMSYMB) qui. à partir du fi- 
chier disque généré par DSMTEXT 
puis relu en Applewriter, donne le lis- 
ting suivant : 

INS 

‘PROGRAMME TEST 


TABLE PAGE 0 
286 EPZ $86 
285 EPZ $85 


TABLE DES ADRESSES 
W0101 EQU $0101 
W0102 EQU $0102 
W0103 EQU $0103 


‘ORG $D31F 
OBJ $800 


LBD31F ASC ‘FORMULA TOO C 


RL tt 


45 





OMPLE 
ASC "X" 
ASC'CAN'T CONTINU 
ASC "E” 
ASC ‘UNDEF ‘D FUNCTIO" 
ASC "N” 


ASC ‘ ER ROR 
HEX 0700 
ASC'IN : 
HEX 000D 
ASC ‘BREAK ‘ 
HEX 0700 
TSX 
INX 
INX 
INX 
INX 
LBD36A LDA WO0101,X 
CMP  #$81 
BNE LBD392 
LDA 286 
BNE LBD37F 
LDA W0102,X 
STA 285 
LDA  WO0103.X 
STA Z86 
LBD37F CMP WO0103,X 
BNE LBD38B 
LDA Z85 
CMP W0102,X 
BEQ  LBD392 
LBD38B TXA 
CELC 
ADC #$12 
TAX 
BNE LBD36A 
LBD392 RTS 
END 


Les noms symboliques sont créés ar- 
tificiellement en utilisant les chiffres 
de l'adresse correspondante, précé- 
dés d’une lettre (indispensable pour 
l'entrée sous l’assembleur). La lettre 
est Z pour une variable page 0, W 
pour une variable à 4 chiffres hexa et 
LB pour une variable Label” (point 
d'entrée dans la zone désassemblée). 
Le programme DSMSYMB rajoute 
de plus tout ce qui est nécessaire à 
l'entrée sous LISA : accès à l'éditeur 
(INS), directives ORG et OBJ, fin de 
source END, et, invisible sur le listing 
mais néanmoins présent, le CTRL-E 
permettant la sortie de l'éditeur. 

Le fichier obtenu est un fichier 
TEXT, disponible sous Applewriter. 
On le transforme en source assem- 
bleur en tapant, à partir de LISA 
bien sûr, la commande CTRL-D 
EXEC "Nom du fichier”. 


Programme de 
désassemblage 
DSMTEXT 


Description 


Ce programme en Applesoft est 
assez court et découpé en petits 
sous-programmes. Son analyse ne 
devrait pas poser de problèmes, mais 
réclame quelques précisions : 


— Le programme, prévu pour 


coexister avec un code machine, 
peut être chargé n'importe où en 
RAM, par ajustement du pointeur 
"Début de Basic”. Il détermine son 
adresse de chargement (ligne 2030) 
et positionne HIMEM de manière à 
occuper exactement 8000 octets tout 
compris (ligne 2045). Tout le reste 
de la RAM est protégé. 


— Il désassemble en mnémoniques 
au moyen de la routine LIST du mo- 
niteur. La routine complète désas- 
semblant par blocs de 20 instruc- 
tions, on utilise la sous-routine 
$F8D0 qui désassemble une instruc- 
tion à l'adresse PTR = $3A, et re- 
tourne la longueur (1. 2 ou 3 octets) 
à l'adresse LG = $2F (ligne 2040). 


— Pour afficher la valeur d’un octet 
en hexadécimal, on utilise la routine 
moniteur $FDDA (écriture en hexa 
du contenu de l’accumulateur), par 
l'intermédiaire d'une mini routine 
machine appelée PA. On POKE la 
valeur de l'octet à afficher dans une 
adresse ‘boîte à lettres” $06, et on 
appelle PA qui se résume à "LDA 
$06 - JMP $FDDA”. Ce code de 5 
octets est POK& lors de l'initialisation 
dans la ligne Basic 1 (ligne À NE 
PAS MODIFIER OÙ SUPPRIMER). 


— Pour convertir en décimal les 
adresses hexa saisies au clavier, on 
utilise la technique dite ‘’du fainéant” 
consistant à ne pas refaire ce que le 
moniteur fait si bien. Les adresses 
hexa, sous forme de variables chaî- 
nes sont introduites aux adresses 
RAM $06 à $09 par la technique 
classique de S.H.LAM. (lignes 34 à 
38). Les adresses décimales sont ré- 
cupérées par des doubles PEEK. 
L'inconvénient de cette méthode, par 
ailleurs très rapide à programmer, est 
que l’on ne teste pas la validité des 
symboles frappés (0 à 9 et À à F). Si 
vous entrez une chaîne qui n’est pas 
la représentation valide d’une 
adresse hexa, le moniteur proteste, 
fait BIP et vous abandonne planté” 
sous moniteur. Pas de panique, faites 
CTRI-C, RETURN, GOTO 1000 
(surtout pas RUN), RETURN, et c'est 
reparti sans perte d'informations, sauf 
votre dernière commande (la mau- 
vaise). 


— Enfin dernier point et peut-être le 
plus important, Apple Computer Inc, 
société sympathique au demeurant, 
n'a pas prévu que l'on ait envie 
d'utiliser simultanément la routine 
moniteur LIST et la routine RWTS 
du DOS. Ces deux routines ont en 
commun 4 adresses page 0, de $2C 
à $2F. Cela ne gêne pas RWTS qui 
utilise ces adresses pour des stocka- 
ges temporaires mais chaque appel 
au disque modifie les variables de 
LIST qui fait alors n'importe quoi. 
Comme LIST est en ROM on la 
laisse tranquille et on ‘’déménage” 
les variables de RWTS des adresses 
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$2C à $2F aux adresses $FC à $FF 
(ligne 2065). Ceci impose d'ailleurs 
d'utiliser DSMTEXT avec un DOS 
tout à fait standard et non relogé. 
Comme chaque fois que l'on se 
trouve avec un DOS exotique en 
machine, il est préférable de suppri- 
mer la commande INIT (ligne 2070). 


Utilisation 


Pour une utilisation simple et rapide, 
le programme fonctionne avec un 
système de touches clés, donnant 
accès à des fonctions rappelées par 
un menu en haut d'écran. Lorsqu'on 
lance le programme, on se trouve en 
mode attente LIST donnant accès à 
4 commandes, C, E, X et W. 


Listing d'une zone mémoire 


Frapper la touche C (sans RETURN), 
puis les adresses de début et de fin 
de la zone à lister, suivant la syntaxe 
classique du moniteur ADR1.ADR2 
(4 chiffres hexa obligatoires par 
adresse, séparés par un point). Frap- 
per ensuite une lettre : L pour désas- 
sembler par la routine moniteur, H 
pour lister en hexadécimal, À pour 
lister en ASCIL Terminer par RE- 
TURN. 


Le listing est exécuté à l'écran. On 
peut l'interrompre, puis le relancer à 
l'aide de la barre d'espace. On peut 
le terminer avant la fin par la touche 
Escape. 

Le programme demande ensuite si la 
commande doit être mémorisée. A 
vous de voir si le résultat vous satis- 
fait, le but étant de créer un petit fi- 
chier de commandes de désassem- 
blage successives, permettant de 
constituer un fichier source combi- 
nant l'analyse des zones de données 
(ASC ou HEX) et celles des instruc- 
tions de l’assembleur (voir l'exemple 
du Listing 2 présenté plus haut, ob- 
tenu par un fichier à 2 commandes). 
Le programme autorise jusqu'à 10 
commandes successives, ce qui 
s'avère suffisant pour traiter la majo- 
rité des cas. 

Le travail ainsi effectué, on retourne 
en mode attente LIST. 


Edition des commandes 


La frappe de E fait passer dans un 
mini éditeur qui récapitule les 
commandes de désassemblage (si 
vous en avez déja mémorisées, sinon 
un -E-est affiché), et permet d’en 
supprimer (S), de modifier l’ordre 
des commandes (D), ou d'en éditer 
pour correction éventuelle (E). 

On quitte l'éditeur (Q), pour revenir 
en mode LIST. 


Exécution des commandes 


La frappe de X lance l'exécution à 
l'écran du  désassemblage, les 
commandes en mémoire étant exé- 
cutées en séquence. La barre d’es- 
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pace et Escape jouent le même rôle 
que dans l'exécution au coup par 
coup. À la fin, retour au mode LIST. 


Création du fichier disque 


Lorsque l'exécution de votre sé- 
quence de commandes fournit un ré- 
sultat conforme à vos voeux, la 
flappe de W démarre la création du 
fichier sur disque. Après avoir de- 
mandé le nom du fichier et les adres- 
ses de début du code machine, le 
programme relance un listing mais 
sur la disquette, puis revient en 
mode LIST. 

Attention, le programme ne de- 
mande pas de numéro de lecteur: si 
vous en possédez plusieurs, assurez- 
vous que le lecteur implicite contient 
la bonne disquette destination du fi- 
chier texte (celui-ci devant nécessai- 
rement se trouver sur un disque qui 
contient les deux programmes WPL 
DSMSYMB et DSMSYMB.2). 


Place en mémoire 


Comment disposer en RAM le code- 
machine à désassembler et le pro- 
gramme Applesoft DSMTEXT ? 

En général, il est plus pratique de 
charger le code-machine à son 
adresse réelle de fonctionnement. 
Ceci facilite la lecture des listings de 
désassemblage qui comportent beau- 
coup de sauts ou d'appels de sous- 
routines. Si le code est à une adresse 
supérieure à $2800, vous lancerez 
alors DSMTEXT par un simple RUN. 
Sinon, il vous faudra d’abord remon- 
ter le pointeur début de BASIC der- 
rière le code binaire. 

Il existe un certain nombre de cas où 
le code ne peut pas être lu à son 
adresse réelle de fonctionnement : 
programme machine qui ’tourne” en 
carte langage, ou bien dans l’exten- 
sion RAM de la carte Text du //e, ou 
encore qui occupe la place habituelle 
du DOS. 

On devra alors charger le code ail- 
leurs. Le programme prévoit la possi- 
bilité de faire un décalage d'adresses, 
mais par remplacement du premier 
caractère hexa de l'adresse et non 
par calcul (WPL n'est pas réellement 
adapté pour effectuer des calculs en 
hexadécimal). Il est donc absolument 
indispensable de déplacer le code en 
conservant les trois chiffres bas de 
l'adresse. Le remplacement est effec- 
tué pour deux chiffres successifs : un 
programme fonctionnant à l'adresse 
$DO4A, pourra être chargé en RAM 
à $404A par exemple, toutes les 
adresses en $4xxx seront remplacées 
par $Dxxx et les adresses $5xxx par 
$Exxx. Ceci limite à 4k la taille des 
codes désassemblables. Cette restric- 
tion n’est pas génante dans la me- 
sure où la limite pratique des codes, 
imposée par Applewriter, lui est infé- 
rieure. 
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Les adresses réelle et d'implantation 
du code-machine sont demandées 
par DSMTEXT au moment de créer 
le fichier texte (commande W). 


Programme de 
traitement DSMSYMB 


Une fois créé le fichier texte, ”’reboo- 
tez” le système avec Applewriter //, 
puis démarrez le programme WPL 
par la commande habituelle : CTRL- 
P puis DO DSMSYMB. Le pro- 
gramme vous demande le nom du fi- 
chier texte et vous pouvez enfin aller 
prendre un repos bien mérité, le 
reste du traitement étant automati- 
que. 





Lorsque le programme est terminé, 
le fichier texte définitif se trouve en 
mémoire Applewriter pour consulta- 
tion et sur le disque sous le nom du 
fichier original produit par DSMTEXT 
(ce fichier original est bien sûr 
perdu). Ce fichier est prêt à une en- 
trée sous LISA en mode EXEC. 

Une remarque: le programme 
DSMSYMB utilise deux fichiers tem- 
poraires nommés REF et PGO, qui 
sont supprimés du disque en fin de 
travail. Assurez-vous de ne pas utili- 
ser une disquette qui contient des 
programmes personnels portant un 
de ces deux noms, il leur arriverait 
malheur. 


Le programme WPL a dû être scindé 
en deux modules (DSMSYMB et 
DSMSYMB.2), car Applewriter limite 
à 2K la zone réservée à WPL. Il 
n’appelle pas de commentaires parti- 
culiers, toutes les opérations successi- 
ves étant signalées par un message à 
l'écran (et, accessoirement, les mes- 
sages servent à documenter le lis- 
ting). ‘ 

L'opération la plus longue est la 
création des tables d'adresses (début 
du module 2). Pour un code impor- 
tant (2 à 3K) l'opération peut pren- 
dre d’une demi-heure à plus d'une 
heure (c'est l’occasion où jamais de 
profiter du beau temps...). 


Bilan de l’opération 


Le produit final est, comme on l’a 
montré dans le petit exemple de dé- 





part, un pseudo programme source. 
Sur le plan de la syntaxe, il est prêt à 
être exploité sous assembleur. On 
peut, si on le désire, profiter de ce 
que le fichier est encore en mémoire 
sous Applewriter, pour remplacer les 
noms symboliques générés par 
DSMSYMB par des noms plus expli- 
cites. On consultera les tables 
d'adresses créées et une documenta- 
tion sur les routines système et leur 
appellation standard. On utilisera 
alors la fonction ‘recherche et rem- 
placement” d’Applewriter. Par exem- 
ple: <CTRL-F> /WFDI1B/KEYIN/A 
ou bien 

<CTRL-F>/WFDED/COUT/ 

A etc... 

Ne pas oublier de sauvegarder alors 
le fichier modifié avant de ‘’booter” 
LISA. 


La taille maximale des codes désas- 
semblables est fonction de la capacité 
mémoire de votre système sous Ap- 
plewriter (environ 27K sur un Apple 
/le, où Apple II+ avec carte langage, 
environ 47K sur un //e avec carte 80 
colonnes étendue). 

La routine LIST du moniteur génère 
en moyenne 30 caractères par ligne 
d'instruction. Une instruction corres- 
pondant à 1, 2 ou 3 octets, comptez 
un rapport 15 entre la taille du code 
machine et celle du fichier texte, un 
peu moins si le code comporte beau- 
coup de tables et zones de données. 


Il est important de signaler un gros 
point faible de ce logiciel de désas- 
semblage: ïil ne sait pas traiter 
complètement les adressages immé- 
diats. 

Soit par exemple le code machine 
"A9 41”. Ce code sera désassemblé 
par LDA #$41 mais quelle est l’ins- 
truction source originale ? On peut 
proposer : 

e LDA #$41 

e LDA #'A 

e LDA #TOTO si TOTO=$6041 

e LDA /LULU si LULU=$41FF 

Les ”’matheux” diront qu'il n'y a pas 
bijection du programme source sur le 
code objet. 


En pratique on devra donc être at- 
tentif à la signification des adressages 
immédiats. Dans l’ensemble le désas- 
semblage sera correct, mais dans des 
cas tels qu’un code utilisant une table 
de données, avec des instructions as- 
sembleur du type "LDA #TABLE - 
LDY /TABLE”, le désassemblage en 
arguments immédiats perd sa signifi- 
cation et le nouveau code objet ne 
fonctionnera plus si l'on décale les 
adresses du programme source. Il 
sera alors nécessaire de retoucher les 
instructions source pour réintroduire 
un nom symbolique. 


En conclusion, si ce logiciel peut dé- 
charger le programmeur (patient) de 
la partie ”’bestiale” du travail de dé- 
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sassemblage, il ne dispense pas, heu- 
reusement, de réfléchir et de 
comprendre comment fonctionne le 
code que l’on est en train de traiter, 
avant de le modifier. 


Note aux lecteurs qui souhaitent 
utiliser le programme et ne pos- 
sèdent pas la disquette d’accom- 
pagnement 


Pour entrer le programme Applesoft 
d'après le listing, pas de problèmes, 
mais quelques indications peuvent 
être utiles pour le WPL (à entrer 
sous Applewriter). 


1) ATTENTION à la frappe! WPL 
ne supporte pas les ”’typos” approxi- 
matives et, en général, une erreur de 
frappe se traduit, non par un mes- 
sage sympathique tel que SYNTAX 
ERROR à tel endroit, mais par … 
rien du tout”. Le programme sem- 
ble fonctionner et, à la fin, le résultat 
est totalement ‘farfelu”. Ce type de 
BUG est pénible à traquer. 

Attention aussi à ne pas oublier le 
blanc initial des lignes instructions. 
Seules les lignes portant une éti- 
quette commencent en colonne 1. 


2) Un certain nombre d'instructions 
effectuent des recherches et rempla- 
cements sur des chaînes comportant 
un nombre précis de Blancs (Es- 
pace). Il n’est pas toujours évident de 
compter des blancs sur un listing et, 
afin de permettre une frappe cor- 
recte, ce dernier comporte un certain 
nombre de lignes de commentaire 
composées de points : P 

Ces lignes signalent le nombre et la 
position des blancs dans l'instruction 
immédiatement suivante. 


3) Quelques instructions comportent 
des caractères de contrôle, à frapper 
avec la procédure CTRL-V.CTRL- 
x,CTRL-V. Comme ces caractères 
n'apparaissent pas au listing, voici les 
lignes qui en comportent, le caractère 
étant représenté par (CTRL-x). Ces 8 
caractères seront à remplacer par 1 
caractère contrôle. 

X1 PPR(CTRL-L) 

X3 F##END%(CTRL-E)%# 

X4 PPR(CTRL-L) 

X15 S$D#(CTRL-E)%# 

X18 PPR(CTRL-G)(CTRL-G) 


Note aux lecteurs qui utilisent 
un autre assembleur que LISA 
2.5 


On récapitule ici tous les symboles et 
directives utilisés et destinés à LISA, 
avec les lignes de programme où ils 
apparaissent. Ceux qui ont un autre 
assembleur vérifieront la syntaxe et 
feront les remplacements éventuels 
(le remplacement doit être fait avec 
beaucoup de rigueur, sans introduire 
de caractères blancs supplémentaires 
et sans en supprimer). 

La directive ou le symbole sont pré- 
sentés entre crochets [..……. ], avec les 
blancs nécessaires. 


e [| HEX ] Assemblage d'une zone 
en hexadécimal 

Dans DSMTEXT ligne 2060 

Dans DSMSYMB ligne X2 

e [ ASC |] Assemblage d'une zone 
en ASCII 

Dans DSMTEXT ligne 2060 

e |’] Encadre une définition ASC 
pet en ASCII négatif (Bit 

à 


Ce caractère est défini par 

CHR$(34), dans DSMTEXT lignes 

2055 et 2060. 

e |] Encadre une définition ASC 
’xxxxxxxx en ASCII positif (Bit 7 
à O) 


CHR$(39) dans DSMTEXT lignes 
2055 et 2060. 
e [INS] Entrée dans l'éditeur de 


LISA (en mode EXEC) 

Dans DSMSYMB.2 ligne X16 

e [| ORG $] Origine du programme 
à assembler 

Dans DSMSYMB2 ligne X17 

e [| OBJ $800] Origine du code 
objet en machine 

Dans DSMSYMB.2 ligne X17 

e | END] Fin du programme source 

Dans DSMSYMB ligne X3 

e [(CTRL E)] Sortie de l'éditeur de 
LISA 

Dans DSMSYMB ligne X3 

Dans DSMSYMB2 ligne X15 

e [| EQU ff] Affectation 
adresse hexa à une variable 

Dans DSMSYMB.2 ligne X6 

e | EPZ $] Affectation d'une adresse 
page 0 à une variable 

Das DSMSYMB2 ligne X11 
e [;] Début d'une ligne commen- 
taire. Ce symbole est destiné à 
LISA mais est aussi utilisé abon- 
damment comme marqueur par 
DSMSYMB. Si votre assembleur 
utilise un autre symbole commen- 
taire (étoile ou petit Mickey), faites 
bien les remplacements partout : 

Dans DSMSYMB2 lignes X5, X7, 

X8, X9, X10, X12, X13, X14, X16 

(2 fois), X17 (2 fois). 


d'une 





ILIST:DSM.TEXT 


1 REM *x#x%% 
2 GOSUB 2005: GOTO 1015 
10 REM 


12 REM AFFICHAGE D’UNE ADRESSE HEXA 54 DEB = 1:FS = 1: 
POKE 6, FN HIC(AD): CALL PA: P 10) 
OKE 6, FN LOCAD): CALL PA: PRINT * Sé 


14 PRINT : 


-"3;: RETURN 
20 REM 


22 REM DESASSEMBLE DES ADRESSES Al À A2 


42 REM NOUVELLE LIGNE DE DESASS. 


44 DEB = O:CP = 0: 
; 


GOSUB 14: PRINT M$(FS) 


: RETURN 


90 REM 


S2 REM DES. EN HEXA 


24 FOR AD = AIÇIC) TO A2(IC): POKE PTR, 60 
FN LO(AD): POKE PTR + 1, FN HI(AD) URN 
: CALL LI:AD = AD + PEEK (LG): GO 100 REM 
SUB 305: NEXT : RETURN 105 REM 
30 REM 110 = 


32 REM CONVERSION DECIMALE DES ADRESSES 


DE LA COMMANDE NS 
34 B$ = "Oé:" + 


ENSCIC),8,2) + “ * 
>,6,2) + “ N D9C6G" 


3é FOR I = 1 TO LEN (B#$): 


: POKE 71,0: CALL - 144 215 FOR AD 
38 AICIC) = FN DPCé):A2(IC) = FN DPCS): 220 IF FO < 
RETURN 
40 REM 


MID$ (NSCIC),3,2) + " ” 120 FO 
+ MIDS (NSCIC),1,2) + " " + 


13 


MIDS (NSÇCIC 200 REM 
205 


FOR AD = AIÇIC) TO A2( 


IF DEB THEN GOSUB 44 

58 POKE 6, PEEK (AD): 
1: IF CP = 12 THEN DEB = 1: 
CL$(FS): 

GOSUB 305: NEXT : 


CALL PA:CP = CP + 
PRINT 


PRINT CL#$(FS):;: RET 


TEST CARACTERE 
PEEK (AD): 


ON K / 32 + 1 GOTO 12 


0,125,125,125,120 
115 FO = 2: RETURN 
= RETURN 
MID$ 125 FO = 3: RETURN 


DESASS. EN ASCII 


POKE Sii + 1, 210 AD = AI(IC): GOSUB 105:FS = FO: GOSUB 
ASC € MID$S (B$,1,1)) + 128: NEXT 44 


AICIC) TO AZ(IC): 
> FS THEN DEB = 1: 


GOSUB 105 
PRINT CL 


SCFS);:FS = FO: GOSUB 44 


225 IF DEB THEN PRINT CL$(FS)3;: 


GOSUB 4 
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230 
235 
240 
245 


250 


300 
305 
310 
315 


320 


325 
330 


335 
340 
400 
405 
410 


415 
420 
425 


430 
435 
440 
445 
450 
455 
460 


600 
605 
610 


615 


620 


625 


630 
635 


640 


645 
650 
655 
660 


éés 
670 
675 
680 
685 
690 
695 


4 
ON FS GOTO 235,240 ,240 
POKE 6, PEEK (AD): CALL PA: GOTO 245 
PRINT CHR& ÇK + (FS — 3) * 128) ; 
CP = CP + 1: IF CP = 12 + 12 »x INT « 
FS / 2) THEN DEB = 1 
GOSUB 305: NEXT : PRINT CL$SCFS);: RE 


TURN 
REM 
REM PAUSE 


IF WR THEN RETURN 
IF PEEK (49152) = 155 THEN POKE 49 
168,0:AD = A2(IC):1C = IM: RETURN 
IF PEEK (49152) < > 160 THEN RETU 

RN 
POKE 49168,0 
IF PEEK (49152) = 
168,0: RETURN 
IF PEEK (49152) = 155 THEN 315 
GOTO 330 
REM 
REM ANALYSE DE LA COMMANDE 
CSCIC) = RIGHTS (NSCIC),1): IF NSCIC 
>) = "W" AND IM = > O THEN POP : 
GOTO 605 
IF NSCIC) = 
0 
IF NSCIC) = "x" 
POP : GOTO 705 
IF LEN (NSCIC)) « 


160 THEN POKE 49 


"E" THEN POP : GOTO 300 


AND IM = > O0 THEN 


> 10 OR MIDS$ (N 


SCIC),5,1) € > "." THEN 450 
GOSUB 32 
IF C$(IC) = "L" THEN 22 
IF C#CIC) = "H" THEN 52 
IF C$(IC) = "A" THEN 205 
PRINT 
PRINT CHR$ (4) ;"CLOSE" 
PRINT CHRS (7); "COMMANDE ":;NSCIC);" 
INCORRECTE !“:; POP : GOTO 1015 


REM 

REM CREATION DU FICHIER TEXTE 

HOME : PRINT "CREATION DU FICHIER TE 
XTE'": PRINT 

INPUT "NOM DU FICHIER ? 
$ = "" THEN 1015 

PRINT : PRINT "ADRESSE 

DU CODE MACHINE ?": 

FFRES HEXA) $";: 
G$ 

PRINT : PRINT 


"NAS: IF NA 
ORIGINE UVRAIE 
PRINT "(4 CHI 
INPUT "":0 


"IMPLANTATION ? (OU RE 
TURN SI LA MEME)": PRINT "C4 CHIFF 
RES HEXA) $";: INPUT "";0B$ 

IF 0B$ THEN 0B$ = 068$ 

IF RIGHTS (06$,3) < > RIGHTS (OBS 
53) THEN PRINT CHR$ (7); CHRS (7 
>: PRINT "SEUL LE PREMIER CHIFFRE 
PEUT CHANGER.": PRINT " DESOLE !": 

GOTO 1015 
LEFT$ (0B$,1):6$ = 


= "uw 


B$ = 
1) : 
T$ = "<AÏD" + B$ + "<R1)" + G$ 
IF B$ = "9" THEN B$ = "93" 
IF G$ = "9" THEN G$ = "39" 
T$ = TS + "<A2>" + CHRS (1 + 
BD) + "<R2>" + CHRS (1 + 
)) + "< ORG $" + 0OGS 
PRINT CHR$ (4) ; "OPEN 
PRINT CHR$ (4) ;"WRITE 
PRINT T$ 
WR = 1 
PRINT 
PRINT 
PRINT 


LEFT$ (OG$, 


ASC (B 
ASC (G$ 


";NAS ;" .ADRS" 
" ;:NAS ;" .ADRS" 


CHR$ (4) ; "OPEN" :NAS 
CHR$ (4) ; "DELETE" ;NA$ 
CHR$ (4) ; "OPEN" :NAS 


700 PRINT CHR$ (4) ;"WRITE" :NA$ 
705 FOR IC = O0 TO IM: GOSUB 405: NEXT 
710 PRINT 

715 IF NOT WR THEN 1015 

720 PRINT CHR& (4);"CLOSE" 

725 WR = 0 

1000 REM 

1005 REM PROGRAMME PRINCIPAL 

1010 REM 

1015 GET N#(JC): PRINT N#$(JC);: IF NSCJC 
>) € > "C" THEN PRINT :IC = JC: G 
OSUB 405: GOTO 1035 

1020 IF JC = 10 THEN PRINT : PRINT CHR 
$ (7); CHRS (7); PLUS DE PLACE ! 
“: GOTO 1015 

1025 INPUT "";NS(JC):1C = JC 

1030 GOSUB 405: PRINT : PRINT 

1035 PRINT "COMMANDE ";N#(JC);" À CONSE 
RUER ? O/N ";: GET T$: PRINT TS 

1040 IF T$ = "O" THEN IM = JC:JC = JC + 
1 . 

1045 IF JC = 9 THEN PRINT CHRS (7):;"AT 
TENTION,DERNIERE COMMANDE “: PRINT 

" AVANT ECRITURE OÙ FICHIER !" 
: PRINT 

1050 GOTO 1015 

2000 REM INITIALI SATI ON 

2005 IM= -1 

2010 DIM N#(11) 

2015 DEF FN HICX) = INT (X / 256): REM 

PARTIE HAUTE ADRESSE 

2020 DEF FN LO(X) = X - 256 * FN HI(X) 
: REM PARTIE BASSE 

2025 DEF FN DPCX) = PEEK (X) + 256 * 
PEEK (X + 1): REM DOUBLE PEEK 

2030 PA = FN DP(103) + 5: REM CODE MACH 
INE POUR SORTIE CONTENU DE #06 EN 
HEXA 

2035 POKE PA,165: POKE PA + 1,6: POKE PA 

+ 2,76: POKE PA + 3,218: POKE PA 
+ 4,253 

2040 PTR = S8:LG = 47:LI = 63696: REM DE 
SASSEMBLE 1 INSTRUCTION 

2045 HIMEM: PA + 7995 

2050 REM FORMATS ,MNEMONI QUES 

2055 CL#(1) = "  ":CL#(2) = CHRS (34) + 

CL#(1):CL#(3) = CHR$ (39) + CLS 
1) 

2060 M$(1) = "  HEX ":M$#(2) = " ASC " 
+ CHR$S (34):M8(3) = " ASC " + 
CHRS (39) 

2065 POKE 47489,252: POKE 48687,253: POK 
E 48881,253: POKE 48975,253: POKE 
49915,253: POKE 49033,253: POKE 48 
622,254: POKE 48662,255: POKE 4867 
1,255: REM MODIF RUTS 

2070 POKE 43140,64: REM SUPRESSION INIT 

2075 TEXT : HOME :T#$ = “ADRI.ADR2" , 

2080 INVERSE : PRINT " ";: HTAB 
12: PRINT "C";: NORMAL : PRINT T$; 
: INVERSE : PRINT "L";: NORMAL : P 
RINT " ...DESASSEMBLAGE" 

2085 INVERSE : PRINT " DSMTEXT ";: HTAB 
12: PRINT "C";: NORMAL : PRINT T$: 
: INUERSE : PRINT "H';: NORMAL : P 
RINT " ...LISTE EN HEXA" 

2090 INVERSE : PRINT " ";: HTAB 
12: PRINT "C";: NORMAL : PRINT TS#: 
: INVERSE : PRINT "A";: NORMAL : P 
RINT " ..LISTE EN ASCII" 

2095 INVERSE : PRINT * LIST ";: HTAB 
12: PRINT "E";: NORMAL :. PRINT " , 


+...:.EDITEUR DE COMMANDES" 





ji 


a 


A 


Fa denE 
ENRRERTE 
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2100 INVERSE : PRINT " “;: HTAB 
12: PRINT "X";: NORMAL : PRINT " . 
......EXECUTION À L'ECRAN" 

INVERSE : PRINT " ";: HTAB 
12: PRINT “W";: NORMAL : PRINT " . 
.. ECRITURE FICHIER DISQUE" 

PRINT * 

2115 POKE 34,7: RETURN 

3000 REM | 

3005 REM EDITEUR DES COMMANDES 

3010 TEXT : HOME 

3015 INVERSE : PRINT “ ";: HTAB 
12: PRINT "S";: NORMAL : PRINT "UP 
PRIMER UNE COMMANDE " 

INVERSE : PRINT " DSMTEXT ";: HTAB 
12: PRINT "D";: NORMAL : PRINT "EP 
LACER UNE COMMANDE" 

INVERSE : PRINT " EDITEUR “;: HTAB 
12: PRINT "E"3;: NORMAL : PRINT "DI 
TER UNE COMMANDE" 

INVERSE : PRINT " ":: HTAB 
12: PRINT "Q";: NORMAL : PRINT “UI 
TTER L'EDITEUR" 

HTAB 123 PRINT "= 


2105 


2110 


‘3020 


3025 


POKE 34,6: HOME 

FOR IC = 0 TO IM: PRINT IC:" 
CIC)D;"-": NEXT 

POKE 34,20: HOME 

GET C$ 

GOSUB 3155 


PROGRAMME DSMSYMB 
Z==============—=— 


JF-R AOUT 84 


D 
x © & w oO & [A] G) 
DU 0oco oo Oo [=] 
UV ou £ ps [ni] [a] 
2277 ou oO un © 2] [=] 
13 
[e] 


IF C$ = "S" THEN 3095 

IF C$ = "D" THEN 3110 

IF C$ < > "E" THEN PRINT CHR$ (7 
>): GOTO 3050 

PRINT "EDITER NO ? ";: GET C$: GOSU 
B 3155: PRINT C#$: GOSUB 3165 

ON ER GOTO 3080 ,3090 

HTAB 1: PRINT "?"3;NS< VAL (C#$))3;: H 
TAB 2: INPUT "";N#C VAL (C#)): GOT 
O 3040 

PRINT "SUPPRIMER NO ? “;: GET C$: G 
OSUB 3155: PRINT C#: GOSUB 3165 

ON ER GOTO 3095,3105 


3065 
3070 
3075 


3080 


3085 
3090 


3095 


3100 


3105 FOR IC = VAL (C$) TO IM —- 1:N$CIC) 
= N$CIC + 12: NEXT :1M = IM - 1:9J 
C = JC - 1: GOTO 3040 

3110 PRINT "DEPLACER NO ? ";: GET C$: GO 
SUB 3155: PRINT CH:10 = VAL (C$): 


GOSUB 3165 


31153 ON ER GOTO 3110,3120 
3120 PRINT "DESTINATION NO ? ";: GET C$: 
GOSUB 3155: PRINT C$:I1D = VAL (C 


$): GOSUB 3165 

3125 ON ER GOTO 3120,3130 

3130 KZ$ = N$CIO):NSCIO) = N$CID):NSCID) 
= K2$: GOTO 3040 


3155 IF C$ = "Q" THEN GOSUB 2075: POP : 
GOTO 1015 
3160 RETURN 


3165 ER = 2: IF C$ >  STR$ CIM) OR C$ < " 
0" THEN ER = 1: PRINT CHRS (7) 


3170 RETURN 





0? 

PPR-OK 

PPR RECALAGE DES ADRESSES 
P LECTURE 

PAS$D .ADRS=$C 
PLS$C/A1>/</N=$A 
PLS#C/R1>/</N=8B 


PPR PCS/$A/$5B/ 

PPR PGOFPREP 

PPR MODULE DSMSYMB NO 1 : PREPARATI PSRRC 

ON PAS$D .ADRS=8C 

PPR PLS$C/A2)/</N=8A 
PPR PLS$C/R2)/</N=88 
PPR PSRRC 

PIN NOM DU FICHIER ? =#0 PGOFPREP 

PPR CHARGEMENT RC B 

NO P RECALAGE DES INSTRUCTIONS 
L$D FH/SAHZSBHA 

8 P 

PPR P RECALAGE DES BRANCHEMENTS 
PPR-OK PASBCC=$C 

PPR RECHERCHE DES 7??? PSRRECMN 

B PASBCS=$C 

P RU iibees nn. 5: PSRRECMN 
AOP2 FH#— && 22?  YH PASBUS=$C 

? PSRRECMN 

PGOX2 PASBUC=$C 
PGOFOP2 PSRRECMN 

P se de PASBNE=$C . 

X2 F/- /-  HEX/ PSRRECMN 

0? PASBEQ=$C 
P'hrcsne . PSRRECMN 

F/ ?2?? LA PASBMI=$C 

0? PSRRECMN 

PGOAOP2 PASBPL=$C 
FOP2 PPR-0OK PSRRECMN 

PPR ELIM. DES CODES HEXA PRT 
AOP3 B RECMN B 

PB: és: és PS so 
FH—  && #- HA F/$C  #$SA/8C  $$B/A 
PGOAOP3 P 

E PRT 

D FPREP PPR 
X3 F## ENDZZH PPR-OK 
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S$D 


STR PPR 
PPR 8 
PPR RECHERCHE DES ARGUMENTS PLSH CHUC) (N=SA 
NO F <W$A)> <<A 
P ee PCS/#$A/FIN/ 
LSDH- &&&  HAHAN PGOF INI 
P ADI PPR$$A 
8 B 
FHHZH P .…. 
0? FOSA-  CLBSA<A 
PPR PGOREF INT 
PPR  — MARQUAGE 8 
F/S/W/A F/#$A/W8A/A 
PPR — ADRS IMMEDIAT P 
B E 
F<H=><<A D 
P Xé F<<USA EQU 5#A>« 
PPR  -— ELIM. DES SYMBOLES D’ADRESSAGE 0? 
B PGOSTR 
F/(//A PPR 
P P LABELS INTERNES 
8 REFINT B 
cg F/#$$A/LB$A/A 
P 
B PGOSTR 
p P Mes eee 
8 FH/&B&&—  HX #A 
F/X//A p 
P PPR 
B PPR-OK 
Said PPR SAUVEGARDE TABLE ADRESSES 
E 
ACPS B 0 
FHAAHZHA X7 FHH#;24 
PGOAOPS 0? 
SREF 8 
PPR X8 F/;TAB/ 
PPR-OK ? 
PPR SAUVEGARDE ARGUMENTS PAGE 0 X9 SREFH;%4 
8 PPR 
FHl&seHHA PPR-OK 
P PPR CREATION TABLE PAGE 0 
E] 8 
F/W/2/A LPGO 
5 F<<ZFIN>< 
SPGO 0? 
PPR E 
PPR-OK D 
PPR SAUVEGARDE REFERENCES X10 F<C);TABLE PAGE 0>< 
NO 0? 
LREF P 
B B 
FHlgé2HHA Pont, Lee 
P F/ H$/  32/A 
PPR P 
PPR-OK STRO PPR 
PPR B 
PPR PREPARATION TERMINEE PLSH(>Z (> (N=SA 
PPR . F<Z#A) <<A 
PPR CHARGEMENT DU MODULE DSMSYMB.2 PCS/$A/FIN/ 
PDODSMSYMB . 2 PGOFINI 0 
X4 PPR PPRSSA 
PPR 8 
PPR DSMSYMB. 2 F/$$A/28%A/À 
PPR P 
PPR CREATION TABLE DES ADRESSES 5 
AAA X11 F<<2Z$A EPZ #84) 
PPR a 
5 PGOSTRO 
F<<WFIN>< FREE 
S orne 
… F/  32/  #s/A 
P 
= PPR 
à PPR-OK 
X5 F<(): TABLE DES ADRESSES >< PPR SAUVEGARDE 
0? E 
p D 
PAS#D .ADRS=$C X12 FH#3%H 
PLSSCHORG $H2HN=SA 07 
PASSA=$B 8 
PGOAD1 X13 F/;TABLE P/ 
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? 
X14 SPGOH;7# 


E 


X17 FH#:% ORG $8B7 OBJ $8007%;7%# 


PPR ET SAUVEGARDE 


D 
B 

FHAZAHH 0? 

0? L#$0 
X15 SSDHZH PPR 
PPR 

PPR-0OK S$D 
PPR MISE EN FORME DU FICHIER FINAL OFREF 
NO FPGO 

B F$C 
X16 FHHINS/; PROGRAMME  #8D%:;2H 3 

0? 

LPGO X18 PPR 
LREF PAT 





Les codes ASCII du //e 


Guy d'Herbemont 


J'ai été intéressé par le programme 
"GESMASK modifié” publié dans 
Pom's 14, et brusquement interloqué 
en constatant qu'il m'était impossible 
de sauver le moindre masque par la 
commande CTRL - SHIFT - P, pour- 
tant prévue à cet effet. 


En examinant le programme source 
en assembleur, j'ai constaté, à la 
ligne 82, que l'accès à la sauvegarde 
du masque résultait de la frappe 
d'une touche, ou séquence de tou- 
ches, ayant pour code clavier $80. 
J'en ai déduit que les auteurs du 
programme concerné utilisaient un 
Apple II+, sur lequel la frappe de 
CTRL - SHIFT - P, ou encore 
"CTRL - arrobas”, correspond effec- 
tivement à la frappe du caractère 
’’nul” dont le code clavier est $80. 

Malheureusement, sur un Apple //e, 
il n’en va pas de même. La frappe 
de CTRL - SHIFT - P est équivalente 
à celle de CTRL - P et retourne $90 
pour code clavier. On comprend 


se soit avérée désespérément infruc- 
tueuse. 


Considérant en outre que le //e pos- 
sède un double clavier AZERTY / 
QWERTY, j'ai voulu vous proposer 
un petit programme très simple per- 
mettant de lister les codes de toutes 
les touches du //e, dans l’un et l’au- 
tre cas, afin de rendre service aux 
utilisateurs qui pourraient se trouver 
confrontés comme moi à ce pro- 
blème de différences de codes. 

Pour en revenir au cas de GES- 
MASK , il apparaît ainsi que, sur le 
lle, c'est "CTRL - à” (ou encore 
"CTRL - 0”) qu'il faut taper pour 
obtenir $80 si l'on est en AZERTY, 
et ’CTRL - 2” (ou ‘’CTRL - SHIFT - 
2”) pour le même résultat si l’on est 
en QWERTY. 


L'utilisation du programme est sim- 
ple : il suffit de taper sur toutes les 
touches de chaque rangée dans les 
différents cas possibles (normal, ma- 


une fois avec le clavier en mode 
AZERTY et une seconde fois en 
mode QWERTY. 


La version listée ci-dessous vous 
donnera un tableau des codes en 
ASCII positif décimal (tous inférieurs 
à 128), correspondant aux valeurs 
que vous retournerait la fonction 
ASC si elle fonctionnait correctement 
pour toutes les touches. 


Pour ceux qui s'intéressent plutôt 

aux codes écrans négatifs exprimés 

en hexadécimal (valeurs que l’on 

teste en assembleur en sortie d'une 

routine de saisie de caractères, 

comme dans le cas de GESMASK), 

les petites adaptations suivantes per- 

mettront d'obtenir le tableau souhaité 

de la même façon : 

e Saisir et sauver sur disquette la 
petite routine machine ASCII. O 

e Rajouter une ligne 75 PRINT 
CHRS (4) ” BLOAD ASCIILO 

e Remplacer la ligne 210 par ”’210 





alors que la comparaison avec $80 juscules, CTRL et CTRL + SHIFT), CALE 768 Æ 
ILOAD ASCII .HERBEMONT 50 PRINT "RANGEE CTRL ";iN = 13: GOSUB 2 
1LIST 00 
60 PRINT "RANGEE X : "3:N = 11: GOSUEB 2 

| REM TABLEAU DES CODES CLAVIER 00 
2, RÈM:, SSSR Sen === 70 PRINT "RANGEE ESP: ";:iN = S: GOSUE 20 
10 TEXT : HOME PRINT CHR$ (4)"PRH1" 0 
15 PRINT PRINT  SPC{ ‘10)"CODES CLAVIER 80 RETURN 

AZERTY": GOSUE 20 200 FOR I = 1 TON 
16 PRINT : PRINT SPC 10)"CODES CLAVIER 210 GET A$: PRINT PEEK (49152)" *; 

GWERTY": GOSUE 20 220 NEXT PRINT RETURN 

17 PRINT CHR$ (4)"PRHQ": END 
20 PRINT "NORMAL": GOSUB 30 
21 PRINT "SHIFT": GOSUB 30 
22 PRINT "CTRL"': GOSUR 3û 
23 PRINT "SHIFT+CTRL'": GOSUB 30 
24 RETURN 
30 PRINT "RANGEE ESC: ";:N = 14: GOSUE 2 *300.30B 

00 
40 PRINT "RANGEE TAB: ";:N = 14: GOSURB 2 0300- 20 OC FD 20 DA FD A9 A0 

où 0208- 20 ED FD 60 
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STARTUP et saisie de la date en Pascal 


La gestion de directory sous PAS- 
CAL UCSD permet, entre autres 
avantages, de dater les versions de fi- 
chiers automatiquement. Mais cette 
date ne sera correcte que si l’utilisa- 
teur prend systématiquement la 
peine de mettre à jour la date sys- 
tème en ’bootant”. Or cette opéra- 
tion ne peut se faire normalement 
que par l'option D(ate du FILER. 
Malheureusement, 9 fois sur 10, on 
néglige de le faire, et au bout de 
quelques temps, on ne se souvient 
plus de la chronologie des versions 
de programmes. 


Il est pourtant assez simple d'écrire 
un petit programme possédant les 
fonctions suivantes : 


— Saisie rapide de la date: rentrer 
uniquement le jour si le mois est in- 
changé. 

— Vérification de celle-ci. 

— Enregistrement de la nouvelle date 
sur la disquette (pour le prochain 
boot”) et en mémoire pour qu'elle 
soit utilisée dans la directory. 


De plus si on appelle ce programme 
SYSTEM.STARTUP, il sera exécuté 
à chaque boot”, ce qui permet 
d’avoir une date système toujours … 
à jour. 

Les bonnes adresses 


Deux endroits nous intéressent: 
— la position de la date système sur 


la disquette; 
— la position de cette même date en 
mémoire. 


Pour la première, on peut se repor- 
ter, entre autres, à l’article de M. Cri- 
mont Un catalogue généralisé en 
Pascal” paru dans le numéro 2 de 
Pom's. Pour ceux d'entre vous qui 
n'auraient pas ce numéro, rappelons 
que la directory d’un disque PAS- 
CAL occupe les blocs 2 à 5 inclus et 
est structurée comme indiqué dans le 
listing 1 donné en fin d'article. 


Etant donné que seul le premier bloc 
nous intéresse, nous utiliserons une 
variable d’un type légèrement diffé- 
rent de REPERTOIRE dans le pro- 
gramme. Le type REPERT n'a de 
description précise que pour l’en- 
tête, le complément à la taille du 
bloc étant occupé par un ARRAY de 
243 octets. En effet, le champ DIS- 
QUE occupe 26 octets, il en reste 
donc 486 dans le bloc, ce qui corres- 
pond à la place occupée par notre 
tableau. Pour lire (respectivement 
écrire) ce bloc, il suffit d'utiliser la 
fonction UNITREAD (respectivement 
UNITWRITE). 


Pour ce qui est de la position en mé- 
moire, elle varie selon les versions du 
système : 

— version 1.0: $A912, $A913 
(—22254, —-22253). 


Eric Pascual 


— version 1.1: S$AAIS, $AA19 


(—21992, -21991). 


Le programme 


Il va lire le répertoire sur le disque, 


affiche la dernière date enregistrée, 
demande la nouvelle date (en refu- 
sant les entrées incorrectes), puis 
l’enregistre dans le répertoire du dis- 
que et en mémoire aux adresses ci- 
dessus. _ 

Le listing du programme étant abon- 
damment commenté, il est inutile de 
reprendre ici sa description détaillée. 

Pour le lancer automatiquement lors 


du ”’boot”, il suffit de le stocker sur 
la disquette APPLE1L: et de l'appeler 
SYSTEM.STARTUP. 


Pour finir, voici un complément de 
bibliographie sur PASCAL UCSD 
pour Apple //: 

— Gestion de fichiers et de périphéri- 
ques pour Apple // en Pascal, de 
Hervé Haut (Editions de PSI). 

— Le système Pascal UCSD (tomes 
1 et 2), de Thierry Chamoret (Edi- 
TEST). 

Ces deux ouvrages sont particulière- 
ment intéressants et fort bien faits. 
On y apprend énormément de 
choses. Merci à leurs auteurs. 


————————]_]—]_]__]__]_______——__]_]—]—]—]—]—]—]—]—]—_]—]——_————_———————————————— 


REPERTOIRE = record 


DISQUE: ENTETE; 


FICHIER: array 


end; 
avec 


ENTETE = record 
unusedi 
PREBLOC 
unused2 
NOM 
NBBLOCS 
NBFICHIERS 
unused3 
DATESYS 
unuse d4 
unused5 

end; 


DATE = packed record 
MOIS :1..12; 
JOUR ilaadl: 
ANNEE :1..99 


end; 
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integer; (x inutilisé #) 
integer; C*x num Îer bloc utilisable *) 
integer; (x inutilisé *) 
string!7!; (x nom du disque *) 
integer ; (*x nombre de blocs du disq.*) 
integer; (*x nombre de fichiers *) 
integer; (*x inutilisé *) 
date; (*x date système *) 
integer; (# inutilisé #) 
integer; (x inutilisé *) 








TUE 


< 3 
: Programme STARTUP Version du 05/07/84 } 
€ Assure les fonctions suivantes: »: 
€ —- lecture dans le repertoire de la deniere date de boot 3 
{ — affichage du message de bienvenue. “ 
{ — Saisie date du jour et enregistrement sur le disque et } 
€ en memoire } 
€ } 
CT } 
program startup; 
const volume =4; { Numero du boot disk 3 
adrdate =-21992; { Adresse date systeme version 1.1 } 
€ (—-22254 pour version 1.0) } 
type date =packKked record 
mois 31..12;: 
Jour 3: 31; 
annee :0..99 
end; 
memdate =record case boolean of { pour pouvoir acceder ax la date : 
true sdatesys :"date); { en memoire (voir article } 
false (adresse :sinteger) © "PEEKs et POKEs en PASCAL'" 3 
end; { POMS numero 12 page 5 3 
entete =record 
extfuti tinteger; { inutilise 2 
prebloc tinteger; { numero du ier bloc libre 3 
catdis :integer; { inutilise 3 
nom :stringl7]l; { nom du disque } 
blocs tinteger ; { nbre de blocs sur le disque 7: 
nbfichiers sinteaer; { nbre de fichiers sur disque 
extfut2 sinteger; { inutilise 3 
datesyse :date; { date systeme enregistree > 
extfutz3 tinteger; { inutilise u 
extfut4 :integer { inutilise 3 
end; 
repert =record 
header sentete; 
filler sarray(1..2431 of integer 
{ pour completer le record a Si2 octets (taille d’un bloc) } 
end; 
var mmjjaa :imemdate; 
wdate ‘date; 
rep :repert; 
change :boolean; 
Cm Ecriture de la nouvelle date systeme 


Fe en memoire. 


procedure writedate(vardate:date); 
begin 
mmjjaa.adresse :=adrdate; 
mmjjaa.datesys"®.Jjour :=vardate.jour; 
mmijjaa.datesys".mois :=vardate.mois; 
mmjjaa.datesys".annee :=vardate.annee 
end; 
meme Saisie nouvelle date systeme 3 
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procedure saisdate; 


con 


Pom 


st xû =é2: { pasition du debut de la zone de saisie 
x Ü =18; £ {x0O = colonne x*0 = liqne) 
strdate :string; 
JJ sinteger; 
mm sinteger; 
aa sinteger; 
ok :toolean; 
5! CR iiiiiisisis::::: Saisie des elements de la date 


var JÉSIe sinteger; 
mi ,m2 sinteger; 
ai ,a2 sinteger; 
c schar; 
ok :boolean; 
beqain 
change:=true; 
Ÿ ======z==-=-=z=---————————— Lecture 1er chiffre du j our 
repeat 


gotoxy(xQO,y0);: 

read(c); 

if ord(c)=22 then begin { si RETURN, arret saisie 
changeï=false; 
exit(saisjjmmaa) 

end; 


jJi:=ord(c)-erdi"0"); { test de validite 
oK:=(ji in [0..31);: 
if not ok then writelntchr(7)) 

until ok; 


€ =======zz==============---=== Lecture ?eme chiffre du jour. 
repeat 

gotoxy(xÜ+1,»0); 

read(c); 


j2:=ordic)-crd{(‘0*); { test de validite 
ok:= « 6j 1=0 > and €J2- in C1..91)) 

or jt in (1,2) and €j2Z in ([0..9]1)) 

or £Cj1=3 ) and fj2 in (0,11 )) >: 


if not oK then writelnéchré7)5 
until ok; 


Jj:=19*j1 + j2; 


Ê =====zzz=z-=-==--==--————————— Lecture er chiffre du mois 
repeat 
gotoxyr(x0+3,>0); 
read(c); 
if ordic)=32 then exit(saisjjmmaa); { si RETURN, arret saisie 
mi:=crdici-ord(’0‘); € test de validite 


okKi:=(mi in (0,11); 
if not oK then writeln(tchr(7)) 
until ok; 


Ÿ ===============--==z========= Lecture 2eme chiffre du mois 
repeat 
gotoxy{x0Ü+4,»y0) ; 
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read(c); 
m2:=ordic)-ord{(‘0"): 


{ test de validite } 
okK:i= « CCmi=0) and m2 in [1..9]1)) 
or {Cmi=1) and (m2 in [0..21)) ); 
if not ok then writelnéchri?)) 
until ok; 
mm:={10x#mi + m2; 
Û ============z==zz=zzzz==z=z== Lecture ler chiffre de l‘annee } 
repeat 
gotoxy(xO+é,y0); 
read{c); 
if ordic)=32 then exit(saisjjmmaa) { si RETURN arret saisie ù 
ai:=ord(c)-ord(’0"); { test de validite } 
okK:= (ai in [0..9]); 
if not ok then writeln(chr(7)) 
until ok; 
Ÿ ==z=zzzzzzz— Lecture 2eme chiffre de ]J’annee } 
repeat 
gotoxy(x0+7,y0); 
read(c); 
a2:=ord(c)-ord(’0’); { test de validite } 
oK:=(a2 in [0..91); 
if not oK then writeln<chr(7)) 
until ok; 
aaï:={0xai + a2; 
end; 
Q sssssssssssssssssssesssssssssssssssesse Verification coherence date saisie a 
function verifdate :boolean; 
begin 
if mm in [4,6,9,11] 
then verifdate!:=(jj<31) 
else if mm<i2 
then verifdate:=true 
else if ax mod 4 <> 0 
then verifdate:=(jj<29) 
elze verifdate:=(.;jj<st) 
end; 
 sasssssssssessstesessesesssssesssssssses Debut SAISDÉTE } 
begin 
jJj:=rep.header.datesys.jour; 
mmi=rep.header.datesys,.mois; 
aaiï=rep.header.datesys,.annee; 
Cm mm mm mm Affichage date actuelle } 
gotoxyr(0,17);: 
write(’Current date is ’,jj,*-");3 
if mm in [1..12] 
then case mm of 
1: write(’Jan‘):; 
2: write(’Feb”); 
3: write(’Mar’); 
4: write(‘Apr’'); 
9: write(’May”’); 
é: write(’Jun‘); 
73: write(’Jul”’); 
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8: write(’Aug’); 
9: write(’Sep’); 
0: write(’Qct’); 
1: write(’MNou’); 
12: write(’Dec’) 
end 
else write(’???7/); 
writeln(’-’,aa); 


CE Saisie nouvelle date si besoin 
writelné‘Enter new date if needed (form 601..21)}-<01..12)>-<00..993) 20 
gotoxy{xO,>0); 

writelné/..-,.-—,.,1): 


repeat 
Saisjjmmaax; { Lecture reponse 
gotoxy(xO,»0); € Reecriture date complete 
if jj<=7 then Write("0")i;writetjj,"-") 
if mm<=9 then wurite(’/0‘);write(mm,’-") 
if aa<=9 then wurite(’0");writetaa); 


if not change 


then okK:=true {€ Si saise par RETURN =) rien a faire 
else okK:=verifdate; { Sinon on verifie la nouvelle date 
gotoxy(25,20); 
if not ok 
then write(’>>>> Date invalide <<<<’,chr{7)) 
else write(’ 1) 


until ok; 


LE Si modification alors on memorise la 
€ nouvelle date pour les mises a jour. 
if change 
then begin 
with wdate do 

begin 


Jour 1=jj;: 
MmOiZz  :=mm; 
annee !=aa 


end; 
rep.header .datesysi:=wdate 
end 
end; { de la procedure SAISOATE 
= —— Lecture de 1er bloc du repertoire 


procedure readrep{uar varrepirepert); 


begin 
unitread(volume ,varrep,sizeof(varrep),2) 
end; 


Ce Mise à jour du 1er bloc du repertoire 
procedure writerep{yuar varrepirepert): 


begin 
unitwrite(volume,varrep,sizeof(varrep),2) 

end; 

En —— Affichage du message de bienvenue 


procedure welcome; 
begin 


page(output); 
gotoxy(0,10); 
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writeln(’Welcome ’,rep.header.nom,’, to Apple II Pascal 1.1”); 
writeln; 
writeln(’Based on UCSD Pascal System Version 11.1’); 


end; 
CT } 
{ PROGRAMME PRINCIPAL > 
CT 3 
begin 
readrep(rep); { Lecture du {er bloc de la directory 3 
welcome ; { Affichage du message de bienvenue } 
saisdate; { Saisie de la date : } 
if change 
then begin { Si differente de l’ancienne, 3 
writedateiwdate); { 1 - enregistrement en memoire 3 
writerepirep) { 2 - mise a jour de la directory } 
end 
end. 
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FR TRANSMETTEZ-NOUS VOS TEXTES 


PAR TÉLÉPHONE us 
ou 
DONNEZ-NOUS VOTRE DISQUETTE [ra 


Les textes de Vos articles, catalogues, annuaires ou brochures 
saisis sur votre APPLE sont envoyés directement sur notre photocom- 
poseuse. 


Nous vous évitons ainsi, le coût et le temps de la saisie supplé- 
mentaire que nécessite le traitement traditionnel de la photocompo- 
sition avant l'impression des documents, si vous le désirez nous pou- 
vons également nous charger de l'impression et du brochage. 
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Tout ce que 
VOUS avez 
LOUJOUrS 
voulu savoir. 





Apple 














/ 


AT 


LEZ Lee Dm 


fn 1: À 








Apple et GMS c'est une rencontre. 
Apple c'est toute une gamme d'ordi- 
nateurs personnels pour profession- 
nels. 

L'Apple Ze et son jeune frère compact 
l'Apple ZI. Ils sont très sérieux pour la 


B\ForMATIQUE € 





gestion, la tenue des stocks ou le trai- 
tement de texte... 

Et puis il y a Macintosh et sa souris. 
On clique sur la souris, on appelle le 
programme. Tout un menu est affi- 
ché par symboles, les éléments sont 





Re 


Informatique GMS 212-214 avenue Daumesnil 75012 Paris. 
“Le nom Apple et le logo Apple sont des marques déposées d'Apple Computer, Inc.” TM Apple Computer, Inc est le licencié de la marque Macintosh. 
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TM 


simples et les combinaisons infinies. 
Enfin il y a GMS, une équipe de pro- 
fessionnels qui vous accueilleront et 
vous conseilleront personnellement. 
Alors tout ce que vous avez toujours 
voulu savoir... 345.28.52. 


Ë 
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PLE-+CRAE+APA 


Yvan Koenig 


Si vous avez PLE, CRAE, TOOLKIT 
et une extension 16K, je vous offre 
la possibilité d'avoir ces trois utilitai- 
res simultanément en mémoire 
(MEM) avec, en plus, un tableau des 
lignes référencées et une routine re- 


groupant des lignes consécutives. 
vez le tout 


CRAE se place sous les buffers du APA+DIVERS, 


DOS de $7400 à $8FFF. LOADAPA, 
utilisé lorsque PLE est en place, 
charge APA de $81E1 à S$8FFF. 
GR+LINRE?F utilise $7FDO0 à $81D9. 
Il est possible grâce à CRAPA.OBJ 
de reporter CRAE dans l'extension 
Banki de $D000 à $ECO0. De son 
côté, APA+DIVERS peut se loger en 
Bank2 de $D000 à $DFFF et de 
$F000 à $FCO0. 


La commande &' permet d'appeler 
en MEM l'utilitaire qui n'y est pas. 
Lorsque APA+DIVERS est actif, on 
accède à LINREF par &&, à 
GROUPE par &GR L1.L2. 


sion HEX — DEC. 


Pour avoir ces possibilités, entrez les 
programmes CRAPA et GR+LINREF 
soit en assembleur, soit directement 
en hexadécimal. Chargez PLE, puis 
faites RUN LOADAPA afin de placer 
APA sous les buffers du DOS. Placez 
alors GR+LINREF en $7FD0 et sau- 


A$7FDO,L$1030. 
Chargez à nouveau PLE, effacez 
63999, tapez le listing PLECRAPA et 
sauvez sous ce nom. 


Vous pouvez alors initialiser une dis- 
quette avec PLECRAPA puis la 
compléter avec PLE.EDIT.PROD , 
APA+DIVERS et enfin CRAPA.OBJ. 


Vous avez alors un outil très complet 
pour l'édition de vos programmes 
Basic. Je cite pour mémoire : avec 
CRAE (voir Pom's 1), vous avez la 
recherche et la modification de chaî- 
nes, un dump mémoire, une numé- 
rotation automatique, et la conver- 


Avec APA+DIVERS, vous avez les 
variables référencées, la renumérota- 
tion, la réunion de programmes, la 
suppression de REM, les lignes réfé- 
rencées, etc. 


Je précise que &GR L1,L2 se borne 
à afficher les lignes L1 à L2 comme 
si elles étaient regroupées, à vous de 
valider si vous le souhaitez en relisant 
avec le curseur. 


&GR LI affiche la ligne L1 compac- 
tée au maximum, les espaces parasi- 
tes étant omis et les instructions 
PRINT remplacées par ?. 


par BSAVE 


Je n'ai pas créé de pense-bête pour 
indiquer quel utilitaire est actif à un 
moment donné: taper & envoie le 
message READY si CRAE est actif, et 
envoie le prompt Applesoft dans le 
cas contraire. 

La mémoire disponible pour les pro- 
grammes Basic est exactement celle 
que l'on a avec le couple PLE + 
CRAE. 


———— 





ILIST :PLECRAPA "3 PRINT “3. DUMP";: HTAB 26: PRIN 
T “8. AUTOLINE": PRINT “4, FIND";: 
10 TEXT : HOME : CALL PEEK (175) + PEE HTAB 26: PRINT "9. RENUMBER": PRI 
K (176) # 256 - 1822: CALL - 2257 NT "5. LIST";: HTAB 26: PRINT "10. 
2: PRINT "VOUS AVEZ PLE" MODIFY" 
30 PRINT CHR$ (4)"BLOADCRAPA.0BJ,A$300" 610 PRINT "11.QUICK & DIRTY": HTAB 26: P 
: POKE 827,8: POKE 829,6 RINT “#% = MONITOR": PRINT "! = FRE 
S0 GOSUB 620: PRINT CHR$ (4)"BLOAD APA+ E BYTES" SPC( 11)"!F= HEX > DEC": 
DIVERS": CALL 7846 PRINT "% = BIN. LOAD ADR" SPC( 8)" 
60 GOSUB 600: PRINT CHR$ (4)"BLOADPLE.E Z1= DEC > HEX": RETURN 
DIT.PROD": CALL 768 620 HOME : PRINT "&RENUMBER <START)>, INC 
70 POKE 111,240: POKE 112,115: POKE 115, >, FIRST), (LAST)>": PRINT "&HOLD": 
240: POKE 116,115: POKE 827,6: POK PRINT "&MERGE": PRINT "&LENGTH": P 
E 829,8 RINT "&COMPRESS": PRINT "&SHOW": P 
80 PRINT : INVERSE : PRINT " CRAE ACTIF RINT "&NOSHOW": PRINT "&AUTO <STAR 
";: HTAB 21: PRINT "&’"3;: NORMAL : T>,<INCD>": PRINT "&MANUAL": PRINT 
PRINT " POUR BASCULER": UTAB 22: "&XREF": PRINT “&KEYS" 
NEW 630 INVERSE : VTAB 10: HTAB 30: PRINT "& 
600 PRINT : PRINT "1. APPEND";: HTAB 26: GR Li,L2": HTAB 30: PRINT "&&=LINR 
PRINT “é. QUOTE": PRINT "2. CHANG EF": NORMAL : RETURN 
E";: HTAB 26: PRINT "7. VERIFY OFF 
1 ; 16 TMINUS EPZ $C7 
2 j;#*x*x GROUPE DES LIGNES *xx*+ 17 ; 
3 ;x#x SUR L'ECRAN POUR *#% 13 AMPERU EQU +$2F5 
4 ;*x**x EDITION EVENTUELLE *%# 19 TKNTBL EQU $D0D0 
5 ; 20 FNDLIN EQU $D614 
6 ORG $7FD0 21 NEWSTT EQU #$D7D2 
7 0BJ +$300 22 ISCNTC EQU +$0258 
8 ; GR + LINREF.SCE 23 LINGET EQU $DA0C 
9 CH EPZ $24 24 CRDO EQU $DAFE 
10 LINNUM EPZ $50 25 OUTAQST EQU $DB5A 
11 FORPNT EPZ $85 26 OUTDO EQU #DBSC 
12 LOWUTR EPZ $9B 27 SYNTAX EQU $DEC9 
13 DSCTMP EPZ #90 28 LINPRT EQU #ED24 
14 CHRGET EPZ $Bi 29 : 
15 CHRGOT EPZ $B7 20 : 
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E.APA 
32 ; 


DIVERS 
5 AUTRE 


COMPAC 
STRTELN 


ENDLN 


ENDMAX 


ERRP 
FIRSTL 


68 : 
MXLN 


2 ENDRNG 
: PRNMB 
LSTLN 


PRCHR 
NOCR 


FIN 


KEYCHR 


EQU 


CMP 
BNE 
JMP 
CMP 
BEQ 
JMP 
JSR 
JSR 
JSR 
JSR 
BEQ 
CMP 
BEQ 
CMP 
BNE 
JSR 
JSR 
BNE 
PLA 
PLA 
LDA 
ORA 
BNE 
JMP 
LDY 
J5R 
INY 
LDA 
TAX 
INY 
LDA 
STY 
JER 
LOY 
JMP 


LOY 
LDA 
BEQ 
JSR 
INY 
LD 
TAX 
INY 
LDA 
CMP 
BNE 
CPX 
BEQ 
BCS 
STY 
LDA 
BNE 
LOY 
JMF 
JSR 
INY 
LDA 
BNE 
TA 
LDA 
TAX 
INY 
LDé 
ST*X 
STA 
BNE 
JSR 
JUMP 
INY 
BNE 


#$AF 
AUTRE 
LINREF 
#$88 ; 
COMPAC 

E.APA 

CHRGET 

LINGET 

FNDLIN 

CHRGOT 

ENDMAX 

#HTMINUS 

ENDLN 

#”,” 

ERRP 

CHRGET 

LINGET 

ERRP 


Ls 


GR.OUPE 


L INNUM 
L'INNUM + 1 
FIRSTL 
SYNTAX 
#1 

CRDO 


(LOUTR) ,Y 


CLOUTR) ,Y 
FORPNT 
LINPRT 
FORPNT 
NOCR 


#1 
CLOUWUTR) ,Y 
FIN 
ISCNTC 


(LOUTR) ,Y 


CLOWTR) ,Y 
L'INNUM# 1 
ENDRNG 
L'INNUM 
PRNME 

FIN 
FORPNT 


OUTDO 


CLOWTR)D ,Y 
PROCHR 


CLOUTR)D ,Y 


{LOUTR) ,Y 
LOUTR 
LOUTR+1 
NX LN 

CROO 
NEWSTT 


K1 


104 
10S 
104 
107 
108 
10? 
110 
111 

LE2 
113 
114 
115 
114 
117 
118 
117 
120 

121 

122 
123 
124 
125 


132 
133 


K1 
RTNO 
PROCHR 


PRO! 


NXKEY 


N1 


PRKEY 


P2 


; 
;* TABLEAU 


; 

TXTTAB EPZ 
CURLIN EP2Z 
FL1 EPZ 
FL2 EP2Z 
OLDTXP EP2Z 
DATPTR EP2Z 


EQU 
EQU 


; 
KBD 
KBDSTB 


; 
COUT EQU 


; 
; 
; 
LINREF 


D1 


D2 


STA 
ENCORE LDA 


DSCTMP+1 
(DSCTMP) ,Y 


PRCHR 
FORPNT 
#$BA 
PRQI 
OUT GAST 
LSTLN 


; PRINT” 


#$7F 


( #TKNTBL 


DSCTMP 
/TKNTBL-#100 


f DSCTMP+1 
 #SFF 


DES LIGNES APPELEES * 


$67 
$75 
$77 
$78 
$79 
$7D 


$C000 
$C010 


$FDED 


CHRGET ss 
TXTTAB 41 
OLDTXP # 
TXTTAB+1 # 
OLDTXP+1 

#0 

FL2 

#0 

COLDTXP) ,Y 


(OLDTXP) ,Y 
02 


OLDTXP+1 


OLDTXP 
Di 


CROO 
TXTTAB 
OLDTXP 
TXTTAB+1 
OLDTXP+1 
#0 


61 


177 
178 
179 
180 
181 
182 
183 
184 
185 
186 
187 
188 
189 
190 
191 
192 
193 
194 
195 
196 
197 
198 
199 
200 
201 
202 
203 
204 
205 
206 
207 
208 
209 
210 
211 
212 
213 
214 
215 
216 
217 
218 
219 
220 
221 
222 
223 
224 
225 
226 
227 
228 
229 
230 
231 
232 
233 
234 
235 
236 
237 
238 
239 
240 
241 
242 
243 
244 
245 
246 
247 
248 
249 
250 
251 


THON T LIFE 


SE 


FAST CES 


TERMIN 


5 
UNEL IG 


U1 
U2 


U3 


U4 


; 
YAINUM 


FL1 
#2 


COLDTXP) ,Y 


CURLIN 


COLDTXP) ,Y 


CURLIN+1 
UNEL IG 
#0 


COLDTXP) ,Y 


COLDTXP) ,Y 


TERMIN 
OLDTXP+1 


OLDTXP 
ENCORE 


YA1NUM 
#$AB 
YAINUM 
#H$AC 
YA1NUM 
#$C4 
YA1NUM 
#$B0 
YA1NUM 
#$BC 
YA1NUM 


U2 


#0 


(DATPTR) ,Y 


CDATPTR) ,Y 


DATPTR+1 


DATPTR 


CDATPTR) ,Y 


U1 


NUMGET 
FL2 

Y4 

L INNUM 
CURLIN 
Y4 
L'INNUM# 1 
CURLIN+1 
Y4 


FLI 

Y1 

#1 

FL1 
TOUCHE 
CRDOO 
##AD 


3TIRET 


252 
253 
254 
255 
256 
25 
258 
259 
260 
261 
262 
263 
264 
265 
266 
267 
268 
269 
270 
271 
272 
273 
274 
275 
276 
277 


278 
279 
280 

281 

282 
283 
284 
285 
286 
287 
288 
289 
290 

291 

292 
293 
294 
295 
296 
297 
298 
299 
300 
301 

302 
303 
304 
305 
306 
307 
308 
307 
310 
311 

312 
313 
314 
315 
316 
317 
313 
317 
320 
321 

322 
323 
324 


JSR COUT 
LDY #2 
LDA COLDTXP),Y 


LDA COLDTXP) ,Y 
JSR LINPRT 


y2 JSR COUT 
ÿ3 LDY #2 
LDA CDATPTR) ,Y 


LDA (DATPTR) ,Y 
JSR LINPRT 


v4 LDA CDATPTR) ,Y 
CMP H$2C 
BEQ YAINUM 
JMP U2 


, 
NUMGET LDA #0 
LE LINGET APPLESOFT 

STA LINNUM+1 
STA FL2 

ci INY 
LDA (DATPTR),Y 
CMP #$20 
BEQ C1 

C10 LDA (DATPTR) ,Y 


SBC ##30 
BCC C3 
CMP #$A 
BCS C3 
INC FL2 


ASL LINNUM 
ROL LINNUM+1 
LDA LINNUM 
ASL LINNUM 
ROL LINNUM+1 
ASL LINNUM 
ROL LINNUM+ 1 
ADC LINNUM 
STA LINNUM 


ADC LINNUM+!1 
STA LINNUM+1 


INC LINNUM+1 


BNE C10 


BPL:-T2 

STA KBDSTB 
Ti LDA KBD 

BPL Ti 

STA KBDSTB 
T2 RTS 


LONG  EQU *-DIVERS 
FINI END 


AT LS PATES à et 
EEE RENE EN E EE R 
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;VIRGULE 


; PRESQUE 


; ESPACE 
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80A0- 85 79 ÀS 68 85 7À A7 00 





GR + LINREF SA 5 56 A0 C0 57 29 40 Co SIAB- NS 50.04 90 28 % gé 00 
8180- 26 51 45 50 85 50 8A 45 
8080- B1 7? FO 0A 48 68 85 7A 
81B8- 51 85 S1 68 65 50 85 50 
8088- 68 95 79 4C AA 80 68 20 
81C0- 90 02 Eé 51 C8 DO CD 60 
80C0- FB DA AS 67 85 79 AS 68 
81C8- AD 00 CO 10 0B 80 10 Co 
*7FD0.8108 80C8- 85 7A A? 00 85 77 A0 02 di 00e An NC CT RE 
8000- Bi 79 85 75 C8 B1 79 85 de 
7FD0- C9 AF DO 03 4C ?B 80 C9 80D8- 76 20 FO 80 A0 00 B1 79 
7F08- 88 F0 03 4C 10 83 20 81 80E0- 48 C8 81 79 FO 08 85 74 
7FE0- 00 20 OC DA 20 1A Dé 20 80E3- 68 35 79 4C CA 80 68 60 
7FE8- 87 00 FO 10 C9 C? FO 04 80F0- AS 67 85 ?D AS 68 85 7E 
7FF0- C9 2C DO 10 20 81 00 20 80F8- A0 04 Bi ?D FO 21 C9 CS 
7FF8- 0C DA DO 08 68 68 A5 50 8100- 80 1A C9 85 90 16 FO 29 CRAPA.OBJ 
8000- 05 51 DO 03 4C C9 DE A0 8108- C9 AB F0 25 C9 AC FO 21 
8008- 01 20 FB DA CS B1,98 AA 8110- C9 C4 FO 10 C9 BO FO 19 ns des 


8118- C9 BC F0 15 C8 D0 DB A0 


8120- 00 81 7D 48 C8 Bi 7D 85 
8128- 7E 68 85 70 Bi 7D DO C8 
8130- 60 20 85 81 AS 78 FO 44 
8138- AS S0 CS 73 D0 3E AS 51 
8140- CS 76 D0 38 98 48 AS 77 
8148- DO 20 A9 01 85 77 20 C8 
8150- 81 20 FB DA A9 AD 20 ED 
8158- FD A0 02 B1 79 AA C8 B1 
8160- 79 20 24 ED A9 07 85 24 
8168- DO 05 A9 AC 20 ED FD A0 
8170- 02 81 7D AA C8 Bi 7D 20 
8178- 24 ED 68 A8 B1 7D C9 2C 
8180- F0 AF 4C FA 80 A9 00 85 
8188- S0 83 51 85 78 C8 B1 70 
8190- C9 20 FO F9 B1 7D 38 E9 
8178- 30 90 2C C9 0 B0O 28° Eé 
81A0- 78 48 06 50 26 51 A6 51 


8010- C8 81 98 84 85 20 24 ED 
8018- A4 85 4C 45 80 A0 01 B1 
8020- 98 FO 34 20 58 D8 C8 B1 
8028- 9B AA CS B1 9B CS S1 00 
8030- 04 E4 50 FO 02 BO 20 84 
8038- 85 A9 34 DO 05 A4 85 4C 
8040- 45 80 20 SC DB C8 81 98 
8048- DO 1B A8 Bi 9B AA C8 B1 
8050- 98 86 98 85 9C DO Cé 20 
8058- FB DA 4C D2 D7 C8 DO 02 
8060- Eé 9E 81 9D 60 10 DB 84 
8068- 85 C9 BA D0 06 20 SA DB 
8070- 4C 3D 80 38 E? 7F AA A0 
807S- DO 84 9D A0 CF 84 9E A0 
8080- FF CA F0 07 20 5D 80 10 
8083- FB 30 Fé 20 SD 80 30 05 
8090- 20 SC DB DO Fé 20 SC DB 
8098- 4C 30 80 20 81 00 AS 47 


0300- A0 6E 8C Fé 03 A0 03 8C 
0308- F7 03 A0 01 84 2C A0 08 
0310- DO 10 A0 61 8C Fé 03 A0 
0318- 03 8C F7 03 A0 02 84 2C 
0320- A0 00 A9 00 85 08 85 04 
0328- A9 D0 85 07 A9 74 85 09 
0330- B9 83 CO 89 83 C0 A2 10 
0338- A0 00 81 06 91 08 C8 D0 
0340- F9 Eé 07 Eé 09 CA DO F2 
0348- AS 2C C9 02 DO 046 Cé 2C 
03S50- A9 F0 85 07 A2 OC Cé 2C 
0358- F0 DEAD 8A CO AD 82 C0 
0360- 60 C9 27 FO 03 4C DO 7F 
0368- 20 81 00 4C 00 03 C9 27 
0370- F0 03 4C 00 87 20 B1 00 
0378- 4C 12 03 





Conversion minuscules/Majuscules 


Alexandre Avrane 


Ce programme de conversion est qui tournent sous ProDOS (tel que SHIFT 

destiné aux possesseurs d'Apple II ou C.Q.F.D.) car SHIFT ne fonctionne 

d'Apple II+ sans ROM d'affichage que sous Dos 3.3. Le programme Li 
des minuscules. Il convertit tous les une fois converti en majuscules sous #3 
caractères minuscules situés dans un DOS 3.3 peut effectivement l'être *300.34A F2 


programme Applesoft en caractères 


ensuite en ProDOS, sans problème. 


à 


0300- A9 OF 85 36 A7 03 85 37 
0308- A9 00 85 48 4C EA 03 
0310- 44 03 08 8A 48 AD 44 03 
0318- A2 07 DD 34 03 F0 OC CA 


majuscules correspondants. 


Il vient en complément du module 
SHIFT paru dans Pom's 14 et per- 
met de modifier définitivement un 


L'utilisation est très simple et ne né- 
cessite aucun commentaire particu- 


lier. En revanche, je vous laisse dé- 
de 0220- 10 F8 C9 EO 90 08 38 E9 


zen 


L42 
Er 


TRRRELE TE 
PRtE Er e 


ra 


! couvrir son principe : 
programme sans devoir lancer SHIFT fonctionnement qui repose sur la gé- Doc CU NP DR te 0920/4A 
à chaque exécution. te x 4 0330- 03 68 AA 28 AD 4A 03 4C 
nération en cascade de plusieurs fi- 0338- F0 FD C0 DC EO0 FB FC FD 


De plus, il est destiné plus particuliè- Chiers EXEC. 


0340- FE FF C1 C3 Ai CS D5 CS 
rement aux programmes Applesoft w 


0348- AD A1 00 


1 REM SHIFT.CONVERT 220 PRINT D#"WRITE 21" 

2 REM (CC) 1984 ALEXANDRE AURANE 230 PRINT "LOAD'FIS$ 

3 REM 27/10/84 240 PRINT "63999"; 

SS IF PEEK (55) < > 158 THEN FLASH : 250 PRINT ":?"Q#$D$"CLOSE 21"G$; 
FRINT "SHIFT.CONVERT DOIT S’EXECUT 260 PRINT “:?"Q$D$"OPEN zZ2"Q$:; 
ER SOUS DOS!": NORMAL : END 270 PRINT “:?"Q$D$"WRITE 22"G$; 

100 D$ = CHR$ (4) 280 PRINT ":POKE33,20"; 

110 QG$ = CHR$ (24) 290 PRINT ":LISTO-63998"; 

120 TEXT : HOME 300 PRINT ":POKE33,40"; 

130 PRINT “CONVERSION EN MAJUSCULES D’UN 310 PRINT ":17"Q$"63999"0$; 
PROGRAMME APPLESOFT COMPORTANT 320 PRINT ":7"Q$"SAVE"F2$0$ ; 
DES MINUSCULES" 330 PRINT “:?"Q#$"DELETE 21"0$; 

140 PRINT : PRINT 340 PRINT ":?"Q#$"DELETE z2"Q$: 

150 INPUT "PROGRAMME INITIAL: ";F18$ 350 PRINT “:?"Q#$D$"CLOSE z2"G@$; 

160 INPUT "PROGRAMME CONVERTI :";F2$ 360 PRINT "17" Q$D$"MONI"Q$ ; 

170 PRINT D$"NOMONICO" 370 PRINT “:?"Q$D$"EXEC Z2"Qs 

180 PRINT D$"BRUN SHIFT" 380 PRINT "RUN 63999" 

170 PRINT D$"OPEN 21" 390 PRINT D$"CLOSE 21" 

200 PRINT D$"DELETE 21" 400 PRINT D$"EXEC Z1" 

210 PRINT D$"OPEN Z1" 


EE 
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ul 


Je SNS SE 


PES 


Fa 


CALLSs à gogo 


Roland JOST 


Troisième article destiné à vous fami- 
liariser avec la manipulation en Ap- 
plesoft des ressources ultimes de 
votre Apple : après ‘’Pokes à Gogo” 
(Pom's 11) et ‘’Peeks à Gogo” 
(Pom's 13), voici les "’Calls à Gogo”. 
Peut-être aurions-nous dû appeler la 
série ‘PEEKSs et POKESs et CALLe- 
gram” ? 


Comparer deux zones mémoire, en 
déplacer une, afficher un nombre en 
hexadécimal, lire ou écrire un secteur 
sur la disquette, afficher de droite à 
gauche, et bien d’autres choses en- 
core, sont possibles en utilisant les 
programmes du Moniteur, de l'inter- 
préteur Applesoft ou du DOS. En 
effet il suffit souvent dé POKEr quel- 
ques adresses en page zéro, de faire 
un CALL., et le problème est résolu. 


Un certain nombre de sous-program- 
mes peuvent être appelés directe- 
ment à parti du Basic. Pour d'au- 
tres, il est nécessaire de charger 
l'accumulateur et’ou les registres 
d'index avant l'appel du sous-pro- 
gramme. Le programme en assem- 
bleur AMPERCALL vous facilitera la 
tâche. Dans la liste ci-dessous, ces 
CALLSs sont précédés d'un amper- 
sand (&). 


Enfin, il est possible d'appeler des 
sous-programmes de l'interpréteur, à 
condition de POKETr certains paramè- 
tres en mémoire. Ces CALLS seront 
signalés par un #. 


# CALL -144 (65392) : lecture du 
tampon d'entrée et exécution des 


commandes : ce CALL est l'élément 
central de la célèbre routine de 
S.H.LAM : 

C$=C$+" N D9C6G'"FOR Z=1 
TO LEN(C$): 

POKE 511+Z., 


ASC(MID$(C$,Z,1))+128: 
NEXT:POKE 72,0:CALL —144 


permet l'exécution de la chaîne CÈ 
représentant une commande donnée 
sous Moniteur. Par exemple : 

e Désassembler 20 instructions : C$ 


e Copier la page graphique 1 en 
page graphique 2: C$ 
="4000<2000.3FF8M" 

e Afficher une zone mémoire en 
hexadécimal : C$ = ”300.3FF” 


Passons aux CALLSs 


dits : 


CALL -151 (65385): passage au 
mode Moniteur à partir du Basic. 


proprement 


CALL —155 (65381): comme pré- 
cédemment, avec émission d’un 
"bip. 


CALL —167 (65369) : idem plus re- 
tour en mode TEXT. 
CALL —-182 (65354): sauvegarde 


des registres À, X, Y, Pet S respecti- 
vement en $45, $46, $47, $48 et 
$49 (69 à 73). 

CALL —-193 (65343): restaure les 
registres à partir du contenu des 
adresses $45 à $49 


CALL —198 (65338): 
d'un bip. 

CALL -211 (65325): 
et émet un ‘bip’. 

CALL -310 (65226) : lance l'exé- 
cution du programme machine 
pointé en $3F9 - $3FA (appelé par 
Ctrl-Y en mode moniteur). 

CALL -321 PE 
gistres À, X, Y, P 


# CALL _327 re : restaure 
les registres et appelle le programme 
pointé par $3A - $3B (58 - 59). 
Exemple d'utilisation : appel de la 
sous-routine RWTS : 


I0B= ne 
EEK(997) 

PÉEKIPEEK(999)-+256+ 

EEK(1000)) : 

REM adresse de la table I0B 

CALL —182 : POKE 69.10B/256 : 
POKE 71.10B—-PEEK(69)*x256 : 
POKE 59,3: 

Per 58,217: POKE 49,0: CALL 
Attention : les paramètres nécessaires 
doivent au préalable être POKés dans 
la table IOB (voir programme AM- 
PERCALL). 


CALL -336 (65200): branchement 
au Basic. Le programme est effacé. 


émission 


affiche ERR 


affiche les re- 


CALL -380 (65156): passage en 
mode NORMAL. 
CALL -384 (65152): passage en 
mode INVERSE. 
# CALL -418 (65118): passage en 


mode Moniteur et désassemblage de 
20 instructions. L'adresse de début 
doit être POKée en $3A et $3B. 
PORKE 59,AD/256 : 

POKE 58,AD —-256%PEEK(59) : 
CALL —-418 

désassemblera 20 lignes à partir de 
l'adresse AD. Un autre CALL —418 
désassemblera les 20 lignes suivantes, 
etc. 


# CALL -458 (65078) : vérification 


de zones mémoire. Exemple : 

D1 = début de la 1ère zone 

F1 = fin de la zone 1 

D2 = début de la zone 2 

D1. F1 et D2 sont POKés respective- 
ment en $3C - 
$42 - 


$3D, $3E - $3F et 





CALL —-610: POKE 61,D1/256: 
POKE 60,D1-PEEK(61)+256: 

POKE 63,F1/256: 

POKE 62,F1-PEEK(63)+256: 

POKE 67,D2/256: 

POKE 66,D2-256*PEEK(67): CALL 
—458 

Les différences seront affichées (le 
CALL —610 remet le registre Y à 
zéro, ce qui est absolument nécessaire 
car il est utilisé comme compteur par 
les routines VERIFY et MOVE). 

# CALL -468 (65068): sous-pro- 
gramme MOVE permettant le dépla- 
cement de zones mémoire. Utiliser 
l'instruction précédente en remplaçant 


simplement CALL —458 par un 
CALL —468. 
Exemple : Ro la page graphique 


2 dans la page 1 
CALL —610: POKE 61,64: POKE 


60,0: 
POKE 63,95: POKE 62,255: POKE 


67,32: 

POKE 66,0 :CALL —468 

& CALL -550 (64986) : affiche le 
contenu de l'accumulateur (en hexa- 
décimal). 

& CALL -570 (64966) : addition ou 
soustraction de nombres hexadéci- 
maux (inférieurs à $FF). Les deux 
nombres sont POKés en 60 et 62 et 
s doit contenir le code ASCII de + 


Exemple : INPUT ‘A.B'":A.B : POKE 
60,A 

POKE 62.B: &CALL —570,43.0.0 : 
REM addition. 

Pour la soustraction faire &CALL 
—570, 45, 0, 0. 


# CALL -589 (64947): dump 
hexadécimal. L'adresse de début doit 
être POKée en 60 - 61 ($3C - $3D). 
de fin en 62 - 63 ($3E - 
3F). 


CALL -629 (64907): envoie un 
RETURN avec effacement de la ligne 
depuis le curseur jusqu'au bord droit 
de la fenêtre de texte. 


CALL -651 (64885) : 
frappe d'une touche. 


CALL -657 (64879) : attente d'une 
chaîne de caractères qui est stockée 
dans le tampon d'entrée. Tous les ca- 
ractères sont acceptés : virgule, dou- 
ble point, etc. 
Exemple : 
CALL-657: 
—144 


attente de la 


POKE 72,0: CALL 


attente d'une instruction Moniteur, 
exécution de cette instruction et re- 
tour au Basic. L'instruction doit être 
suivie de ’N D9C6G”. Non utilisable 
en mode immédiat. 
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CALL -662 (64874): comme ci- 
dessus mais affichage préalable du 
curseur. 


CALL -665 (64871): comme ci- 
dessus mais effectue d'abord un re- 
tour chariot. 


CALL —715 (64821): affichage du 
curseur et attente d'un caractère. 


CALL —741 (64795) : affichage du 
curseur et attente d'un caractère. A 
utiliser à la place de GET si le pro- 
gramme appelle un fichier DOS. 


& CALL -856 (64600): WAIT. La 
durée de la pause dépend de la va- 
leur de l'accumulateur : 

A délai en millisecondes 

10 0,4 


50 7,1 
100 26,9 
200 105,1 
255 169,8 


CALL —868 (64668) : efface la ligne 
de texte entre la position du curseur 
et la marge droite de l'écran (identi- 
que à ESC F). 


CALL —912 (64624): déplace tout 
le contenu de l'écran d'une ligne vers 
le haut. Exemple : pour un SCROL- 
LING de l'écran de N lignes: FOR 
L=1 TO N: CALL —-912 : NEXT 


CALL — 922 (64614) : effectue un 
saut de ligne du curseur sans change- 
ment de colonne (identique à CTRL 
J). 


CALL -926 (64610): effectue un 
retour chariot (CR). 


CALL —936 (64600) : vide la fené- 
tre d'écran texte et positionne le cur- 
seur dans le coin supérieur gauche de 
la fenêtre d'écran (correspond à l'ins- 
truction HOME de l'Applesoft). 


CALL -958 (64578) : efface l'écran 
entre la position du curseur et le bas 
de la fenêtre (identique à ESC F). 


CALL -998 (64538) : fait remonter 
le curseur d'une ligne. 

FOR L=1 TO N: CALL —-998: 
NEXT : remonte le curseur de N—2 
lignes. 


CALL —1008 (64528): déplace le 
curseur vers la gauche. 

Testez les instructions suivantes : 
A$="DEMONSTRATION‘"-FOR J=1 
TO LEN(A$): 

HTAB 27 + J: FOR I=1 TO 20: 
CALL-— 1008: 

CALL —1008:CALL —1008: 

PRINT MID$(A$.J.1)" ‘: NEXT LJ 
CALL -—-1036 (64500): déplace le 
curseur vers la droite. 

CALL -1169 (64367): modifie le 
RESET et le dirige vers le sous-pro- 
gramme dont l'adresse aura été 
POKée préalablement en 1010 et 
1011 (décimal). 

Exemple : 

POKE 1010,102 :POKE 
1011.213:CALL—1169 

l'appui sur la touche RESET (précédé 
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par CTRL sur le //e) fera exécuter le 
programme Applesoft. En effet le 
RESET pointe sur $D566 (54630 - 
voir plus loin). 


CALL —1216 (64320) : passage en 
mode graphique basse résolution 
(GR). Plus généralement retour à la 
page graphique définie précédem- 
ment. 

CALL —-1223 (64313): passage en 
mode TEXT. 


CALL -1318 (64218): affiche les 
registres À, X, Y, P.S. 

CALL -1370 (64166) : démarrage à 
froid. 


CALL —-1438 (64098) : effectue un 
RESET. 


& CALL -1718 (63818) : affiche X 
blancs. Si X = 0 affiche 256 blancs. 


#& CALL —-1988 (63548) : efface la 
portion haute et gauche de l'écran 
pointée par $2D (45) et Y. Exemple : 
POKE 45,Vert. : & CALL —1988, 0. 
0, Horiz. 


& CALL -1992 (63544): efface 
l'écran GR jusqu'à la ligne spécifiée 
dans YŸ (compris entre O et 47) 
Exemple : & CALL —1992. O. O, Y. 


# CALL -3082 (62454): en mode 
haute résolution, peint tout l'écran 
avec la dernière couleur utilisée. 
Exemple : 

HCOLOR=C: HPLOT 0.0: CALL 
62454 

peint l'écran dans la couleur C (C 
compris entre 0 et 7). 

Ou encore : 

POKE 228.X: HPLOT 00: CALL 
62454 

avec X compris entre O et 255 : fonds 
divers. 


CALL —3086 (62450) : vide la page 
HGR en cours d'utilisation. Peut se 
faire tout en restant en mode TEXT. 


CALL —-3102 (62434) : passage en 
mode HGR avec effacement (CALL 
62430 pour ITT 2020). 


CALL -3112 (62424): passage en 
mode HGR2 avec effacement (CALL 
62420 pour ITT). 


CALL -3456 (62080) : passage en 
mode FLASH. 

CALL -3465 (62071) : passage en 
mode INVERSE. 

CALL -3469 (62067): passage en 
mode NOKMAL. 


CALL -4818 (60718): affiche la 
valeur actuelle de FAC (accumulateur 
flottant). 


& CALL -4828 (60708) : affiche en 
décimal les 2 octets dans X et A. 


& CALL -9414 (56122): affiche 
une chaîne pointée par YŸ et A et se 
terminant par $00 ou $22 

Exemple : 
A$="BONJOUR": 
LEN(A$): 

POKE 8191+L. 


FOR L=1 TO 


TETE TETE 
ES mine 


ASC(MID$(A$.I1.1)):NEXT L: 
POKE L+8191,0: TEXT: HOME: 
&CALL 56122,0,0,32 


CALL —-10601 (54935): remet le 
pointeur en début de programme 
Basic et lance l'exécution. Les varia- 
bles sont conservées. 


CALL —10644 (54892) : équivalent 
de la commande CLEAR. 


CALL —10677 (54859) : équivalent 
de la commande NEW. 


CALL —-10906 (54630): exécution 
du programme Basic. Les variables 
sont perdues (commande RUN de 
l'Applesoft). 


CALL -10964 (54572): attente 
d'une chaîne de caractères qui sera 
stockée dans le tampon d'entrée. 
Tous les caractères tels que ‘:" ”: 

7,” sont acceptés (non utilisable en 
mode immédiat). 

Exemple : 

CALL —10964: POKE 113.0: POKE 
114,32: 

&CALL 58850,255.0.2 

saisie d'une chaîne de caractères dans 
le tampon d'entrée et déplacement en 
$2000. Cette chaîne pourra être affi- 
chée par un &CALL 56122.0.0.32. 


# CALL —-20926 (44610): affiche 
un nombre entre O et 255. cadré a 
droite sur 3 colonnes. Le nombre à 


afficher doit préalablement être POKé 
en 68 ($44). 


# CALL -22572 (42964) : déplace 
les buffers (tampons) du DOS. La 
nouvelle adresse doit être POKée en 
40193 et 40192. 

Exemple : 

POKE 40193.PEEK(40193)-N: 
CALL 42964 

libère N+*256 octets entre $9C00 et 
les tampons en déplaçant ceux-ci de 
N pages vers le bas. HIMEM est dimi- 
nué en conséquence et ni FP ni 
RESET ne modifient HIMEM. Cela 
est intéressant pour stocker dans une 
zone protégée un sous-programme 
qui ne risque pas d'être écrasé. sauf 
après un BOOT. Pour revenir à la 
normale, on pourra faire un 
POKE 40193. 156: POKE 40192. 
211 : CALL 42964. 


CALL -23186 (42350) : effectue un 
CATALOG du dernier drive utilisé. 
Pour avoir le CATALOG des deux 
drives d'un slot, faire : 

CALL 42350: 

POKE 43624,3-PEEK(43624): 

CALL 42350 

CALL 1016: lance l'exécution du 
programme machine pointé par 
CTRL-Y. 

CALL 1013: lance l'exécution du 
programme machine pointé par & 
($3F5 - $3F7). 

# CALL 1002 : reconnecte les poin- 
teurs du DOS. 


Exemple: modifier le SOus-pro- 


gramme de sortie : 


æ 


: 


red 
F4 
2 
a 
“ 
l 
ER 


# 


P] 








POKE 54,0. POKE 55,3: 
1002 


CALL 


existe deux possibilités : 
1) Utiliser les adresses de sauvegarde 


2) Utiliser l'utilitaire AMPERCAËLL qui 
fournit également la possibilité de 


les sorties seront dirigées vers une de ces registres ($46 et suivantes). La POKEr dans deux octets mémoire 
routine en $300. séquence d'instructions est alors la consécutifs. 
CALL 979: ré-initialisation du DOS suivante : Appels : 


avec effacement du 


Basic. 


CALL 976: ré-initialisation du DOS 
sans effacement du programme Basic. 


programme 


Conclusion 


Dans certains cas, il est nécessaire de 
modifier le contenu des registres 
avant l'appel d'un sous-programme. 
Or l'Applesoft ne permet pas la modi- 
fication directe d’un registre. 

Pour y parvenir avant un CALL, il 


— un CALL —182 sauvegarde les re- 
gistres. 

— on POKE la ou les nouvelles va- 
leurs dans les adresses correspondant 
respectivement à À. X et Y. 

— l'adresse du sous-programme à ef- 
fectuer doit être POKée en $3A et 
$3B (58 et 59) qui sont les adresses 
de sauvegarde du PC (PCL et PCH). 
— on termine par un CALL —327 qui 
restaure les registres et lance l'exécu- 
tion du sous-programme pointé par 
PCL et PCH. 


e &CALL adresse, A,X.Y 
(fournir obligatoirement une valeur 
à chacun des registres) 

e &POKE adresse.expression 
(toute valeur inférieure à 65535) 


Ce programme est relogeable. Avant 
la première utilisation, il faut revecto- 
riser l'ampersand. 


AMPERCALL 0300- C9 8C CMP H$8C : instruction CALL ? 
0302- DO 24 BNE $032A : 
CALL 
0304- 20 B1 00 JSR $00B1 : 
0307- 20 4A FF JSR $FF4A : sauvegarde des registres 
030Â- 20 67 DD JSR $DD67 : on evalue la formule 
030D- 20 52 E7 JSR $E752 : 
0310- AS S0 LDA $50 ; 
0312- 85 34 STA $3A : l'adresse du sous- 
0314- AS Si LDA $S1 : programme est mise 
0316- 85 38 STA $3B : en +538 et $3B 
0318- 20 4C E7 JSR $E74C : evalue À 
031B- 86 45 STX $45 3 
031D- 20 4C E7 JSR $E74C : evalue X 
0320- 86 46 STX $46 3 
0322- 20 4C E7 JSR  $E74C : evalue Ÿ 
0325- 86 47 STX $47 , 
0327- 4C 89 FE JMP $FEB9 : restauration des registres et appel 
0324- C9 B9 CMP #$B9 : instruction POKE ? 
032C- FO O1 BEQ $032F 3 
4 032E- 60 RTS : POKE 
ti 032F- 20 B1 00 JSR $00B1 : saisie de l’adresse 
a 0332- 20 67 DD JSR $DD67 : 
ä 0335- 20 64 DD JSR $DDéA : 
ue . 0338- 20 52 E7 JSR .$E752 : 
033B- AS 50 LDA $50 : 
3 0330- 85 06 STA #06 : 
; 033F- AS Si LDA $51 : 
: 0341- 85 07 STA +507 : 
Fe: 0343- 20 BE DE JSR  $DEBE : teste la virgule 
= 0346- 20 67 DD JSR $DD47 : evalue la variable 
0349- 20 64 DD JSR $DD6ÀA 3 
034C- 20 52 E7 JSR $E75S2 3 
034F- A0 00 LDY #$00 : 
0351- AS 50 LDA $50 : 
0353- 91 06 STA (506) ,Y : 
0355- c8 INY 3 : 
0356- AS Si LDA $51 : 
0358- 91 0é STA C$06),Y : 
0354- 60 RTS : retour au BASIC. 


———— 


Précisions et errata 


Suite à l’article concernant le disque 
virtuel 64K, publié dans Pom's 14, 
un lecteur attentif apporte quelques 
précisions. Celles-ci vous permettront 
d'utiliser, sans perturbation éven- 
tuelle, ce programme en affichage 80 
colonnes. Le nombre d’octets à pro- 


téger n'est plus alors 516 mais 1024. 
Les modifications à apporter aux 


programmes RWAUXINIT et 
RWAUX sont les suivantes : 
Dans RWAUXINIT remplacer : 


— La ligne 51 par: 
LDA #$0C 


Dans RWAUX remplacer : 


— Les lignes 12 et 13 respectivement 
par : 
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ORG $DF65 
OBJ $5065 


— La ligne 71 par: 
LDY #$05: 


— A la ligne 123, L$100 devient 
L$102 

— Et enfin, compléter la ligne 30 par 
0607. Cette ligne devient alors : 

TB2 HEX 000104050607. 
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Applemaniaques, mes frères, voici un 
début d'année en forme de feu d’ar- 
tifice : la ligne Apple II se diversifie et 
se multiplie, le Macintosh s'installe. 
Des nouveautés, en voici pour tout le 
monde. 


\ 
Commençons par sonder les murs de 
Cupertino; là-bas, au siège d'Apple, 
on en a déjà beaucoup entendu, 
mais jamais autant qu’en ce début 
d'année 1985. 


La première nouveauté va causer 
des joies, mais provoquer aussi cer- 
taines déceptions, l'Apple //c devient 
le nouveau standard de la famille 
Apple II. Une petite ligne qui déclen- 
che de nombreuses conséquences : 


—1 Les anciens Apple II et //e pour- 
ront être mis au niveau grâce à un 
kit que commercialisera Apple. Un 
nouveau processeur ‘’65C02” rem- 
placera le ‘vieux” 6502, donnant 
ainsi accès aux 27 nouvelles instruc- 
tions. De nouvelles ROMs contenant 
les graphiques de la souris (Mouse- 
text) se substitueront aux anciennes. 
Il est vraisemblable que, dans le cou- 
rant de l’année, tous les Apple //e in- 
tègreront ce kit (l'apparition du //c 
n’a pas tué le //e). Au contraire, le //e 
ne s'est jamais aussi bien vendu; à 
tel point que les commerciaux d’Ap- 
ple ont dû annuler d'urgence toutes 
les promotions à prix ‘’cassés” du //e. 


—2 La seconde conséquence est net- 
tement moins agréable. La modifica- 
tion de mise à niveau s'effectue par 
ECHANGE du processeur, et non 
par addition d’une carte. Dans ces 
conditions, tous les programmes des 
Apples II qui tournaient mal ou bizar- 
rement sur le //c seront affectés des 
mêmes défauts sur les ordinateurs 
’kités”. Bonsoir la compatibilité ! Il y 
a des Multiplans, des PFS et des Ap- 
plewriters qui ne s'en relèveront pas. 


—3 La dernière conséquence entrat- 
nera une dépense supplémentaire 
pour tous ceux qui avaient rechigné 
devant l'achat d’une extension de 
mémoire. Le standard du //c étant 
d'une capacité de mémoire de 128 
Ko, il faudra se procurer les 64 Ko 
supplémentaires (à moins de disposer 
d'une carte 80 colonnes étendues, 
d'une carte RVB Chat Mauve, etc...) 


La deuxième nouveauté, et elle est 
de taille pour la famille des Apple II, 
est la naissance du ‘’grand” frère du 
/!c, connu actuellement sous le nom 
de //x. Dans une interview au men- 
suel britannique Apple Users, John 
Sculley, le directeur général d'Apple, 
a laissé entendre que le //x contien- 
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Micro-Informations 


drait, à la place du lecteur de dis- 
quettes de 5 pouces 1/4 traditionnel 
(et tragiquement limité à 143 Ko), un 
lecteur de 3 pouces 1/2 (le format 
des disquettes du Macintosh, d’une 
capacité de 360 Ko), voire même, un 
disque dur de ce format. Enfin, le 
nouveau //x serait équipé d'origine 
de 256 Ko de mémoire vive. La 
“bête” serait disponible courant 
1985. 


La troisième nouveauté est un réseau 
local destiné à l’utilisation de plu- 
sieurs Macintosh (jusqu’à 32). Le ré- 
seau utiliserait ’l'Applebus”, un ser- 
veur contenant un stockage de 
masse sur disque dur. 

Enfin, comme si tout cela ne suffisait 
pas, Apple présenterait dans le cou- 
rant de l’année une imprimante à 
laser dont le prix constituerait, à lui 
seul, une sorte de révolution (on 
parle de moins de 12000 F...) 


En attendant, 1984 à vu le succès 
d'un ordinateur bien différent de Big 
Brother : le Macintosh s'impose, sur- 
tout avec 512 Ko. Déjà, à Cupertino, 
on envisage des perfectionnements : 
la couleur ! A en croire la revue amé- 
ricaine À +, le Mac en couleurs por- 
terait comme nom de code Rainbow 
(Arc en ciel). Un circuit de Texas Ins- 
trument et une sortie sur l’arrière de 
Macintosh permettraient de le bran- 
cher sur un moniteur couleur. On 
nous avait bien prévenu chez Apple : 
ça ne sera pas donné (comptez 800 
dollars sans le moniteur...) 


Pour les voyageurs, le Macintosh de 
poche avec écran plat et alimentation 
autonome arrive. Un créneau porteur 
aux Etats Unis. Voici pour l'avenir, 
mais il existe déjà bien des moyens 
d’engloutir des fortunes dans les 
Apple d'aujourd'hui. 


Améliorez votre Apple II 


En commençant par la mémoire de 
masse. Une seule solution : le disque 
dur. Avec un nouveau Profile 
commercialisé par Apple. Allelouiah ! 
il a vu sa capacité doubler : 10 Me- 
gaoctets, contre 5 pour l’ancien, de 
quoi stocker le contenu de 70 dis- 
quettes de 5 pouces 1/4. Dommage 
que le prix soit conséquent : 23460 F 
TTC. 


Rêvons un peu en consultant la pu- 
blicité parue pour le ”’Sider”, un dis- 
que dur, produit par First Class Peri- 
pherals, d’une capacité de 10 
Megaoctets. Il supporte les systèmes 
Dos 3.3, ProDos, CP/M 2,23, CP/M 
1.0, 1.5, 2.0, Apple Pascal 1.1 et 1.2 





Jean-michel Gourévitch 


et permet de ‘’booter” sur le disque 
dur. L’esthétique est superbe. Prix : 
695 dollars. À vous de faire la 
conversion en francs. Il est vrai 
qu'Apple vient de mettre en place, 
pour les membres du Club Apple, 
une formule de crédit spécial baptisé 
Apple Check. 


Désormais les accents circonflexes 
existent sur la version française d’Ap- 
ple Works qu’Apple sort enfin (appa- 
remment, la francisation n’était pas si 
facile). Apple Works, dont la version 
américaine a été testée dans Pom's, 
est un logiciel intégré et performant 
contenant un tableur, un gestionnaire 
de fichiers et un traitement de texte, 
pour Apple //e ou //c (accompagné 
d'un manuel de 330 pages et d'un 
livret de travaux pratiques pour 2490 
F TTC). 

L'une des lacunes d'Apple Works, 
était de ne pas disposer de fonctions 
de mailing et de correction. Voici 
l'oubli réparé (en anglais seulement 
hélas) grâce à Megaworks. Un logi- 
ciel de mailing et de corrections 
(30000 mots inclus et la possibilité 
d'en inclure 10000 autres). L'autre 
point faible d'Apple Works résidait 
dans les graphiques. Facile, avec 
Graphworks qui permet d'éditer sous 
forme de camemberts, d’histobarres 
ou de courbes, les données d'Apple 
Works (80 dollars). A noter, pour les 
’afficionados” d'Apple Works que 
celui-ci sera bientôt disponible pour 
Macintosh. 


Imitez l’Apple //e 


Pendant qu'Apple s’échine à trans- 
former le //e en //c, les fabricants de 
périphériques se cassent la tête pour 
faire l'inverse. Qui a dit que le //c 
était une machine fermée ? Sûrement 
pas les britanniques de Cirtech. Ils 
ont réalisé un module CP/M qui 
s'installe dans le coffret du // c et 
joue le rôle d’une carte Z80. Elle est 
même, paraît-il un peu plus rapide. 
Prix : 95 Livres. 

L'utilisation du //c avec une ancienne 
imprimante posait un problème : le 
standard des imprimantes était jadis 
parallèle et est devenu série. Voici 
donc des convertissrurs de série en 
parallèle. Ils permettent de brancher 
le //c sur un périphérique nécessitant 
une interface parallèle (c'était notam- 
ment le cas de l’ancienne imprimante 
DMP d'Apple). Le boîtier Hamlet de 
Belkin Components permet ce mira- 
cle (un mini miracle seulement, ma 
mère) pour 99 dollars. La serial box 
de PBI Software le réalise aussi pour 
90 dollars. 
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Pour l’Apple II 


Une carte multi fonctions, réalisée 
par AST Research, qui dispose d’un 
branchement pour modem ou pour 
imprimante, et en prime d’une hor- 
loge. Le tout sur la même carte pour 
consommer moins de courant. 

Un complément de poignet pour l’or- 
dinateur. C’est la montre Seiko PC 
Datagrap distribuée par Markline. 
Elle vous permet de stocker 2 Ko à 
votre poignet dans 12 dossiers diffé- 
rents. On peut y entrer des numéros 
de téléphone, des itinéraires, des 
dates, etc. La montre se relie à l'in- 
terface RS 232 C (interface série) de 
l'Apple. Un logiciel, livré avec, per- 
met de transférer et de stocker les in- 
formations sur la montre. Prix de 
l'ensemble : 120 dollars. En plus, elle 
donne l'heure... 


Enfin, un accessoire permettant de 
stocker des documents provenant de 
trois ordinateurs, et destinés à une 
seule imprimante parallèle. Le multi 
buffer de Scooter stocke 64 Ko, per- 
met de les réimprimer à la demande, 
joue à la fois le rôle d’un buffer, et 
celui d'une boîte de sélection lors- 
qu'on ne dispose que d'une seule 
imprimante. Prix : 389 dollars. 


À remarquer aussi une version à pa- 
raître du célèbre simulateur de vol 
Flight Simulator II de Sublogic. Cette 
nouvelle version permet de voler à 
plusieurs. Les Apples sont reliés par 
câble ou par modem, et on peut 
voler en formation, apercevoir l'ap- 
pareil d’un ami, voire lutter contre lui 
en combat aérien... 


Macintosh, c’est gagné. 


Il existe, en matière de’ micro-infor- 
matique, deux moyens de s'assurer 
qu'un ordinateur s'impose sur le 
marché. La première, c'est de cons- 
tater l'apparition des logiciels de 
copie de programmes. La seconde 
consiste à compulser les catalogues 
des fabricants d'accessoires. Pour 
Macintosh, pas de doute, c'est 
gagné. Voici une première version de 
BitCopy Il Plus pour Mac (les ama- 
teurs apprécieront). Une revue amé- 
ricaine, Mac World, s’est déjà exclusi- 
vement voué au culte de la nouvelle 
idole. 


Les accessoires 


On en trouve pour tous les goûts et 
pour toutes les bourses. Kensington 
Microware propose un socle pivotant 
pour Mac, un modem portable, une 
unité de contrôle permettant d'’ali- 
menter l'ordinateur et ses accessoi- 
res, et de choisir entre la sortie 
modem, une imprimante et un acces- 
soire. Des petits élévateurs métalli- 
ques, pour incliner l'imprimante Ima- 


gewriter vers l'avant, permettent 
simultanément de mieux voir ce 
qu'on imprime et de loger le papier 
sous l'imprimante. 

MicroRain a construit un meuble, 
baptisé MacStation, qui loge le Ma- 
cintosh, un drive, la documentation 
et la souris et permet d'installer l’im- 
primante au sommet. 

Assimilation Process a remplacé la 
souris par un Mac Turbo Touch, une 
boule qu’on fait rouler avec la main. 
Cette firme propose aussi des logi- 
ciels et des câbles pour relier le Ma- 
cintosh à des imprimantes à margue- 
rite et à des Epson. 

Et surtout un logiciel, Mac Memory 
Disk, offrant l’utilisation d'une partie 
de la mémoire d'un Mac de 512 Ko 
comme pseudo disque. Les avanta- 
ges sont: la suppression des accès 
programmes et la rapidité. Apple tra- 
vaillerait aussi sur un tel disque. 


D'autres logiciels permettent de relier 
le Mac à des imprimantes Nec (Mac- 
print), ou à des imprimantes à mar- 
guerite (Proprint de Creighton). 

A remarquer encore le Thunderscan, 
de Thunderware, une caméra qui 
permet de numériser des photos et 
de les reproduire avec Mac. À noter 
que cette caméra s'installe à la place 
de la cartouche ruban de l'Imagewri- 
ter, et qu'il suffit de faire défiler la 
photo à reproduire sur l'imprimante. 
Prix : 229 dollars. 


Les logiciels 


Des programmes pour Mac comme 
s'il en pleuvait. Des plus simples : 
des jeux de caractères comme ceux 
de Mac The Knife 2, ou Fluent Fonts 
de Casady. Des logiciels astucieux, 
comme Mac Publisher, de Boston 
Telecomputer, donne la possibilité 
d'éditer une lettre d'informations 
(100 dollars). Des programmes so- 
phistiqués comme Fact Finder, de 
MacWare, permettant d'entrer des in- 
formations sous n'importe quelle 
forme, puis de les extraire facilement 
par mots clés, dates, etc... 


Le Pascal UCSD pour le 
Macintosh 


Le P-system est, depuis peu, im- 
planté sur le Macintosh. En effet, 
BUS Informatique, unique représen- 
tant de SOFTECH en France, distri- 
bue la version IV.1 du Pascal UCSD. 
Le système comporte, outre je 
compilateur Pascal, les compilateurs 
Fortran 77 et Basic, un éditeur pleine 
page, un assembleur, un générateur 
de code natif. 

Sur le Macintosh, le Pascal UCSD 
s'emploie exactement comme sur 
toutes les autres machines. Comme 
dans les précédentes versions, on re- 
trouve : les mêmes commandes (tou- 


jours sur deux niveaux; il est regret- 
table que la souris ne joue pas, ici, 
son rôle habituel !), la segmentation 
des programmes, la compilation sé- 
parée, les mémoires dynamiques... 
Le Pascal UCSD permet d'accéder à 
toutes les fonctions du Macintosh. Il 
est muni d'une bibliothèque, lui don- 
nant la possibilité d'utiliser MAC- 
DRAW. Une UNIT est destinée à la 
gestion de la souris. 

La portabilité du système est assurée 
par BUS. 


Catalogues du CXP 


L'édition 1984 / 85 des catalogues 
du CXP est sortie : 10 tomes de 200 
pages chacun en moyenne. Progiciels 
système, comptabilité, gestion finan- 
cière et aide à la décision, de la pro- 
duction à la vente, paie et gestion du 
personnel, bureautique - gestion do- 
cumentaire - CAO, professions libé- 
rales, progiciels sectoriels (2 tomes), 
progiciels scientifiques et techniques. 
Malgré toutes ces informations, on 
n'y trouve pas les logiciels de 
Pom's.. Ces catalogues sont des ré- 
pertoires et non des bancs d'essai. 


Adresses : 


Apple Seedrin - ZA de Courta- 
boeuf - av. de l'Océanie - BP 131 - 
91944 Les Ulis Cedex. 

First Class Peripherals - PO Box 
6187 - Lehig Valley - PA 18001 
USA. 

Megahaus - 5M703 Oberlin d 2 - 
San Dlego - CA 92121 USA. 

PBI Software - 1155 B H Chess 
Drive - Foster City - CA 94404 USA. 
Cirtech - Currie Road - Ind. Estate - 
Galashiels SelkirkshireTD1 2BP 


Belkin Components - 4718 W Ro- 
secrans - Hawthorne CA 90250 
USA. 

AST Research - 2121 Alton Av. Ir- 
vine - California 92714. 

Markline - PO Box C5 Belmont - 
MA 02178 USA. 

Scooter, Ohm Electronics - 746 
Vermont - Palatine IL 60067 USA. 
Sublogic - 713 Edgebrook Drive 
Champaign - IL 61820. 

Kensington Microware - 251 Park 
Av.South NY - NY 10010. 
Creighton Dev. Inc. - 4931 Birch 
St. Newport Beach - CA 92660. 
Thunderware - 19 G Orinda Way - 
Orinda - CA 94563. 

Casady - PO Box 223 779 Carmel - 
CA 93922. 

Boston Telecomputer - 19 Ledge 
Hill Road Boston - MA 02132. Bus 
Informatique - 3, rue de la Boétie - 
75008 Paris - Tél 265 06 04. 

CXP - 5, rue de Monceau - 75008 
Paris - Tél 225 19 60. 
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Certains systèmes utilisent le principe 
de la signature en fin de listing, pour 
identifier les programmes. Il peut être 
effectivement pratique de savoir rapi- 
dement si deux programmes sont dif- 
férents ou si tel listing correspond 
bien à tel fichier sur disque. 


C'est l'objectif de la routine en as- 
sembleur présentée ici. Elle a été 
écrite avec Big Mac et se place en 
$300. Un CALL 768 initialise le vec- 
teur de l’ampersand à $30A. Ainsi, à 
tout moment, on obtient la signature 
du programme Applesoft en mé- 
moire en tapant simplement &. 


Quelques explications 


Cette routine utilise les pinteurs : 


TXTTAB ($67 $68) pour 
connaître l'adresse de début du pro- 


gramme Basic (généralement $801). 

PGREND ($AF — $BO) pour 
connaître l'adresse de fin du pro- 
gramme Basic. 


Elle se sert également de routines 
courantes telles que COUT, CROUT., 
et LINPRT ($ED24) pour afficher en 
décimal les nombres hexa contenus 
dans les registres A et X. 


Son principe 


Considérer tous les octets du pro- 
gramme, ceux de rang pair et ceux 
de rang impair. On effectue un EOR 


Signature 


Patrice Neveu 


des octets impairs (ler, 3ème...) avec 
l'octet de stockage IDENTIFIE et on 
réalise simultanément la même opé- 
ration avec les octets pairs, sur l'octet 
IDENTIFIE + 1. 

NB : il faut toutefois remarquer que 
PGREND situe plus exactement le 
début de la zone libre, non utilisée 
par le programme Basic. Il en résulte 
que SIGNATURE soustrait 3 à cette 
adresse, afin de pointer sur la fin du 
programme Applesoft et non sur le 
début de la zone utilisable. 





1 ss 

2. :# CREE UN CODE IDENTIFICATEUR 52 

3 * POUR PROGRAMMES APPLESOFT 53 

4 54 

“ 55 

É ÉRELÉELSRERELEXX 56 

7 *# LABELS x 57 

8 * * 28 
D'ORÉÉEÉRÉLÉERREEESE ss? 

10 60 

11 TXTTAB = $é67 s1 
12 ALIRE = +506 62 

12 IDENTIFIE = +08 43 
14 PRGEND = $AF s4 
15 PGRFIN = +18 Cl 
16 é$ 
17 AMPERU = +$03FS 67 
13 COUT = $FDED 68 CONT4 
17 LINPTR = $ED24 67 
20 CROUT = $FD3E 70 
21 71 
22 72 CONTS 
23 73 
24 ORG #$300 74 
25 TS 
26 76 
27 77 
LE HRRERKRELREEREEERERREREEEÉESELREREEEX 78 CONT 
27 # INITIALISE L'AMPERSAND La 79 

20 + * 80 
BGÎ FRERES IERERERÉÉRESERÉÉERÉÉSÉSERÉÉÉSS 31 

232 82 

33 83 

34 LDA H##0 84 CONT3 
35 STA AMFERU4+I!I es 

26 LDA #$03 Ré 

237 STA AMPERU+Z 7 CONTI 
38 88 

29 29 

0 +HRHHEREEERSEEREERRESÉEREREREEREXE 90 

41 * PREND EN TXTTAB ($67-49) * 91 

42 # LE DERUT DU PROGRAMME, PUIS * 92 

43 * PREND EN PRGEND ($AF-B0) * 93 CONTO 
44 * LA FIM DU PROGRAMME. * 94 

45 * FAIT UN ‘EOR SUR 2 OCT. AVEC +* ÿs 

4é * LES OCTETS DU FROGRAMME BASIC x 76 

F7 *x x 7 

38 KRKERRRERRERERERÉEREEREEEREREEEXXEX 93 

49 79 

50 100 
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TXTTAE 
ALIRE 
TXTTAB+I 
ALIRE+I1 


PRGEND+ 1 
PGRFIN+I 


PRGEND 


#02 

FGRFIN 
: CÜONT4 
CONTS 


PRGEND+1 
PGRFIN+1 
PGRFIN+1 


#$00 
IDENTIFIE 
IDENTIFIE+I 


ALIRE+I! 
PGRFIN+1 
CONT 1 
CONT3 
CONT 2 


PGRFIN 
CONT 2 


(ALIRE) ,Y 


. CONTO 
ALIRE+1 


EOR 
STA 
LDA 
EOR 
STA 


IDENTIFIE 
IDENTIFIE 
CALIRE),Y 
IDENTIFIE+I 
IDENTIFIE+I 


CLC 
INY 





101 BNE CONT iié JSR LINPTR 

102 INC ALIRE+1 117 

103 JMP CONT 118 RTS 

104 119 

105 CONT2 JSR CROUT 120 

106 LDY #$00 121 x 2262 2 26 6 DE DE DE DEEE ÉD DE DE DE DEEE EEE 
107 122 * MESSAGES * 

108 PRNTCODE LDA CODEMSG,Y 123 +* * 

109 BEQ AFFCODE 124 ##2 x 6e EE DD EEE EEE EX 

110 JSR COUT 125 

111 INY 126 

112 BNE PRNTCODE 127 CODEMSG EQU * 

113 128 ASC "SIGNATURE: " 

114 AFFCODE LDA IDENTIFIE+I 129 HEX 00 

115 LDX IDENTIFIE 130 
——————— 
*#300.370 1LIST : DEMOSI GNATURE 

0300- A9 0ù 8D Fé 03 A7 03 80 PF : : 
0208- F7 03 18 AS 67 85 06 AS 1j TEXT : POKE 33,40: HOME : INVERSE : HT 
0310- 68 85 07 ÀA5 80 85 19 AS AB 14: PRINT "DEMOSIGNATURE": NORM 
0318- AF 18 E9 03 85 18 90 03 AL 

0320- 4C 29 03 AS B0O 85 19 Cé 5 PRINT CHRS$S (4)"BLOAD SIGNATURE" 

0328- 19 A7 00 35 08 85 0? A8 10 UTAB 5: PRINT "’SIGNATURE‘ EST UNE SO 


0330- AS 07 CS 19 90 07 FO 03 
0238- 4C SA 03 C4 13 B0 1B B1 
0340- 046 18 C8 D0 02 Eé 07 45 


US-ROUTINE PERMETTANT AUX P 
ROGRAMMES APPLESOFTS DE SIGNER, C° 
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0248- 03 35 08 81 06 45 09 85 EST À DIRE DE DONNER LEUR IDEN 
0350- 09 13 C2 DO DB Eé 07 4C TITE." 

0353- 30 03 20 8E FD A0 00 B9 20 PRINT : PRINT "PAR EXEMPLE, LA SIGNAT 
0360- 72 03 FO 06 20 ED FD C8 URE DE CE PROGRAMME EST :" 
0368- DO F5 A5 07 A$ 03 20 24 : CALL 768 

0370- ED 60 D3 C? C7 CE Ci D4 25 PRINT 


0378- D5 D2 CS BA 40 00 


Trucs et Astuces 


Eurêka ! Il existe un PEEK permet- 
tant de savoir si un point de l'écran 
haute résolution est allimé ou éteint. 
À = PEEK(Y/64) : 

D=Y-64x%xA: 

B = INT(D/8) : 

C=D-8+:B: 

E = INT(X/7) : 

P = PEEK(8192 x PG + 1024 x C 
+ 128 x B +40 x À + E): 

P = P/2 (X-E x 7)/2: 

P = (P-INT(P)>.5) 

avec X, Ÿ et PG Iss coordonnées ho- 
rizontale, verticale et le numéro de la 
page haute résolution en cours, on 
obtient P = 1 si le point est allumé, 
P = 0 sinon. 

Si vous n'aimez pas les lignes Apple- 
soft aussi complexes, voici encore 
plus court mais en assembleur. 

Après avoir BRUNé le programme 
HSCREEN (relogeable) suivant, il 
suffit de taper : 

POKE 226," : 

C = USR (X) 

avec X et Y les coordonnées et P dé- 
fini comme précédemment. 


L'Ampersand est une merveilleuse 
instruction que nous a offert l’Apple- 
soft (très discrètement d’ailleurs). 
Malheureusement, la quasi totalité 
des routines qui ont été développées 


se montrent d'un égoïsme prodigieux 
à l'égard de leurs consoeurs. 
Nombreux sont donc les lecteurs de 
Pom's qui, ignorant l’assembleur, 
doivent perpétuellement charger les 
mêmes fichiers pour pouvoir utiliser 
simultanément plusieurs  routines 
sous Ampersand. 

Une méthode relativement simple, 
mais cependant peu connue consiste 
à modifier tous les appels de la 
forme : 

& <paramètres éventuels> 

par l'instruction : 

CALL <adresse> , <paramètres 
éventuels>(selon les cas, il faudra ou 
non inclure une virgule entre 
l'adresse et les paramètres). 

Pour calculer l'adresse, il suffit d'ini- 
tialiser la routine de manière habi- 
tuelle, puis de calculer : 
ADR = PEEK(1014) 
PEEK(1015) 

Après avoir remplacé tous les appels 
à cette routine via l'Ampersand par 
un CALL à la valeur ADR, on peut 
alors charger une seconde routine 
qui sera directement appelée par l'&. 


Vite un exemple : tapez FP pour fixer 
HIMEM au plus haut, puis lancez 
l'utilitaire RENUMBER de la dis- 
quette système du Dos; vous obtien- 
drez : 

ADR = 36352 et il sera possible de 
lancer RENUMBER par : | 
CALL 36352 pour renuméroter un 


+ 256 * 


programme et 
CALL 36352H (au lieu de &H) pour 
le placer en attente de fusion. 


Certaines cartes graphiques Epson 
(Rom APL.B) posent parfois, et de 
manière inexplicable, de sérieux pro- 
blèmes; par exemple, les impressions 
d'assemblage par Big Mac se révè- 
lent impossibles. 


L'origine provient de la ROM de la 
carte : à son entrée les trois premiè- 
res adresses de la page zéro ($0000 
à $0002), qui seront utilisées, sont 
sauvegardées (en $C808) sur la pile 
dans l'ordre O0 - 1 - 2. En sortie, mal- 
heureusement, on les restaure (en 
$C99F) dans l'ordre 0 - 2 - 1. Erreur 
fatale qui, en inversant deux adres- 
ses, fait chuter à coup sûr tout pro- 
gramme les utilisant. 


La solution serait simple s'il ne s’agis- 
sait pas d'une ROM, donc relative- 
ment coûteuse à faire refaire par un 
particulier. La parole est donc don- 
née à M3C et Technology Ressour- 
ces, respectivement ancien et actuel 
importateurs d'Epson. 
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Je voudrais soulever le problème de 
la compatibilité du logiciel MOUSE- 
PAINT avec d'autres imprimantes 
que l'IMAGEWRITER. Ayant, en 
effet, cédé à l'attrait de la souris Ap- 
pleMouse sur le //e (qui permet de 
rêver à un Macintosh plein de 
slots..), me voici bien déçu de ne 
pouvoir sortir les mises en page de 
MOUSEPAINT sur mon Epson RX- 
80FT. 

Je me tourne vers Pom's et ses lec- 
teurs (avant d'aller réclamer à Cuper- 
tino), pour trouver la solution logi- 
cielle ou matérielle à cett2 limitation 
des périphériques utilisables avec 
MOUSEPAINT. 


Yvan Pellecuer - 69300 Caluire 


Trois questions sur ProDOS : 

1-Quels sont les manuels Apple dis- 
ponibles ? 

2-Comment le fichier Startup charge- 
t-il le Basic. System ? 

3-Comment formater une disquette 
ProDOS sans passer par la disquette 
des utilitaires système ? 


Christian Coquelet - 77420 Champs- 
sur-Marne 


Pour ces trois points, reportez-vous à 


l’article sur ProDOS de ce numéro. 
ho PP Le 


Après avoir fait la conversion sous 
ProDOS d'un programme de gestion 
de stock, celui-ci refuse de fonction- 
ner. Les instructions du genre ‘’Poke 
43646, x” pour changer de lecteur 
ne sont pas appréciées. La lecture 
des fichiers directs pose aussi quel- 
ques problèmes. Enfin, le manuel 
livré détaille le fonctionnement des 
utilitaires mais quid des instructions 
nouvelles et de la syntaxe ? 


Michel Jacquemard - 74420 Boège 


Stop ! Eloignez-vous tous de votre 
Apple et notez bien: les program- 
mes, conseils, astuces diverses et 
autres que vous avez pu apprendre 
pour le Dos 3.3 ne fonctionnent pas 
sous ProDOS. Au mieux, un POKE 
ou un CALL intempestif se révèle- 
ront sans conséquence; au pire, vous 
aurez détruit votre programme en 
mémoire, voire l'intégrité de votre 
disquette. Malgré des apparences 
semblables pour l'utilisateur, le DOS 
3.3 et ProDOS diffèrent radicalement 
dans leur architecture interne. Même 
les CALLSs effectués vers les vecteurs 
de la page 3 ne donnent plus les 
mêmes résultats. Donc abstinence de 
tout patch dévastateur: promis ? 





L'acquisition récente d'un Apple /c 
m'a fait passer de la préhistoire de 


Courrier des lecteurs 


Alexandre Avrane et Alexandre Duback 


l'informatique (je possédais un Sharp 
PC-1211) à l'ère moderne. Votre 
revue, fort bien faite, contribue large- 
ment à mon initiation. En tant que 
nouvel utilisateur, de nombreuses 
questions se posent à moi : 

1-Dans un article sur la compatibilité 
Apple //c (Pom's 13), Guy Lapautre 
parle de programmes utilitaires tels 
que renumérotation et fusion de pro- 
grammes qui figureraient sur la dis- 
quette utilitaires système de l'Apple 
/'c: or je n'v ai pas trouvé ces pro- 
grammes. 

D'autre part, il semble exister des uti- 
litaires ProDOS tels que FILER, 
CONVERT, etc. que je ne possède 
pas. Où puis-je me les procurer ? 
2-Ma première utilisation, outre les 
jeux (on ne résiste pas à Lode Run- 
ner), à été la gestion familiale (il faut 
se donner bonne conscience). Or, je 
n'ai pu réussir à convertir sous 
ProDOS le programme Gescompte 
de Pom's 10. 

3-Comment modifier  Gescompte 
pour qu'il travaille en 80 colonnes ? 
4-Désirant m'initier au Pascal, j'ai 
acheté le livre ‘Découvrez Pascal sur 
Apple Il” Il y est dit que, lorsque 
l'on ne possède qu'un lecteur, il faut 
d'abord booter sur la disquette 
Apple3, puis insérer la disquette 
Apple et presser Reset. Je suis inca- 
pable d'activer Pascal avec cette mé- 
thode: y a-t-il un Pascal spécial pour 
le //c ? 


P. Pariysiti - 94370 Noiseau 


1-L'utilitaire de renumérotation est 
inclus dans une disquette ProDOS 
Tool-Kit commercialisée séparément. 
En revanche, FILER, CONVERT et 
le ProDOS Formatter sont normale- 
ment livrés avec ProDOS. Demandez 
à votre revendeur de vous les four- 
nir. 

2-Convertissez à nouveau Ges- 
compte en ProDOS, en partant de 
votre fichier correct sous DOS 3.3: 
avant de l’exécuter, modifiez toutes 
les lignes contenant l'instruction VE- 
RIFY (cette commande DOS 3.3 
n'existe pas sous ProDOS), en la 
remplaçant par une instruction OPEN 
suivie d'in CLOSE (lignes 2040, 
21060....). D'autre part, les noms de 
fichiers ProDOS ne peuvent contenir 
plus de 15 caractères et ne doivent 
pas comporter, en particulier, d’es- 
pace : modifiez les lignes 1220 à 
1230 en conséquence. 

3-1 n'est pas très difficile de modifier 
Gescompte pour le mode 80 colon- 
nes. Si un lecteur s'est passionné 
pour le problème, qu'il nous en. fasse 
part et nous transmettrons. 


4-Bizarre, bizarre, ça devrait fonction- 
ner. Toutefois, les anciennes ver- 
sions de Pascal UCSD ne parvien- 
nent pas à booter sur le //c car elles 
sont incapables de reconnaître la 
carte 80 colonnes”. Peut-être votre 
problème vient-il de là. 





Comment obtenir sur imprimante les 
accents circonflexes et les trémas, 
sans passer par un logiciel de traite- 
ment de textes ? 


J.-R. Vailong - 73000 Chambéry 


La notice de votre imprimante vous 
fournit le code ASCII de l'accent cir- 
conflexe et du tréma (généralement 
94 et 126 respectivement); il faut 
alors insérer un caractère ‘espace ar- 
rière” (code ASCII 8) entre la lettre 
et son accent. La ligne Basic suivante 
écrit la phrase “Pour être ivre à 
Noël...”: 

PRINT ‘Pour e”;  CHRS$(8): 
CHR$(94), ‘tre ivre à Noe’”: 
CHRS(8); CHR$(126); 1...” 


Je possède un Apple Il avec une 
carte langage équipée d'une Eprom 
2716 me faisant accéder à des fonc- 
tions très utiles (interruption du pro- 
gramme, sortie par Reset, commande 
de reboot). Malheureusement 
ProDOS refuse de se charger, et j'ai 
donc du remettre la ROM normale. 
Comment pourrais-je réutiliser mon 
Eprom sans devoir à chaque fois 
déssouder et ressouder ? 


Hong Hai Vuong - 75015 Paris 


Votre Eprom, un peu particulière 
(Lockbuster ?), ampute votre carte 
langage de 2 K octets de RAM, et 
ProDOS se trouve trop à l'étroit dans 
les 14 Ko restants pour fonctionner. 
La solution la plus économique est 
probablement de racheter une se- 
conde carte langage et d'y placer 
ProDOS. Pour déplacer ProDOS 
vers un slot autre que le slot*O, ob- 
servez la page mémoire $BF, et plus 
particulièrement les adresses $BFAO 
—$BFF5; elles contiennent les vec- 
teurs utilisés par ProDOS pour acti- 
ver alternativement ROM et RAM. 





Comment peut-on transférer un fi- 
chier sur IBM 36 pour le traiter sur 
Lisa ? 

S. Berthier - 37000 Grenoble 


Re 
RE  — — 
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À priori, les logiciels LisaTerminal et 
MacTerminal permettent une liaison 
synchrone aux normes IBM 
3270/BSC et SNA/SDLC, ou 
asynchrone (TTY et VT52/VT100 de 
Digital Equipment). D'autre part, on 
peut toujours brancher deux 
modems, mais le débit est bien sûr 
beaucoup plus faible (1200 bauds 
contre 1 Méga-bauds maximum). Si 
un lecteur a tenté l'expérience... 


Comment peut-on bloquer le cligno- 
tement du curseur et modifier la son- 
nette (CTRL-G) de l'Apple comme le 
font certains logiciels ? 


C.Babin - 33200 Mérignac 


Ces deux modifications ne peuvent 
s'effectuer qu’en assembleur, en mo- 
difiant en $36 — $39 les adresses 
respectives des routines de sortie et 
d'entrée des caractères. Voici, à titre 
d'exemple, une routine (tournant 
sous DOS 3.3) donnant un ‘’beep” 
semblable à celui des utilitaires four- 
nis avec ProDOS : 


1 *# TILL. 

2 * * 210 * 

3 * LELLL LE. 

4 

5 # (C) 1984 Alexandre Avrane 
é 

7 # Routine modifiant le “Bel1* 
8 # (Ctrl-G) du Moniteur 

? 

10 LDA  #<CSU2 

11 STA #36 

12 LDA #>CSU2 

13 STA 537 

14 JMP  #$3EA 

15 

1é CSu2 CMP #$87 ctr1i-6 ? 
17 BNE  CSW2X 

18 LDA  #520 

19 STA CSW22Z 
20 CSuw21 LDA #2 
21 JSR $FCA8 
22 STA $C030 
23 LDA ##24 
24 JSR $FCA8 
25 STA #C030 
26 DEC CSw227 
27 BNE CSu21 
28 RTS 


29 CSU2X JMP 
30 CSu222 DFB 0 


J'essaie de comprendre les docu- 
mentations en anglais, fournies par 
l'importateur de l'Enhancer Il le 
Sup'R Terminal et la carte Legend 
64k mais j'y perd mon ‘français” 


J.P. Merle - 13001 Marseille 


A notre connaissance, les traductions 
de ces manuels n'existent pas. 


1-Comment obtenir sur l'imprimante 
et à l'écran les nombreux caractères 
annoncés par le menu ‘Pomme’ du 
Macintosh ? Pour un texte scientifi- 
que, beaucoup d'entre eux seraient 


très utiles : racine, lettres grecques, 
symboles'mathématiques.. 


2-Comment obtenir plus de 6 lignes 
d'impression par pouce ? 
3-Comment récupérer les caractères 


accentués sur l'imprimante à partir 
du Basic ? 


4-Comment lister le catalogue d'une 
disquette sur l'imprimante sans pas- 
ser par la copie d'écran ? 


Jacques Boutique - 83 rue Louis Ca- 
simir Ranson - 87000 Limoges 


1-L'option clavier” dans le menu 
Pomme” n'est accessible qu'avec la 
police de caractères Chicago. Pour 
les caractères spéciaux que vous sou- 
haitez obtenir, il serait bon de chan- 
ger de police. La plus adaptée aux 
textes scientifiques serait, semble-t-il, 
la police Geneva. Pour une impres- 
sion sur papier, si votre texte est un 
fichier Mac Write, vous n'aurez 
aucun problème. 


2-Par défaut, l'impression est de 6 
lignes par pouce (ESC A). Il est tou- 
tefois possible de la modifier. En 
effet, ESC T24 correspond à un in- 
terligne classique et ESC T16 sup- 
prime les interlignes. Ainsi, pour un 
espacement de lignes particulier il 
suffit de taper en mode immédiat : 
LPRINT CHRS$(27) "TXX'; XX étant 
la valeur choisie. Cette commande 
peut être introduite dans un pro- 
gramme. 

Pour obtenir 8 lignes par pouce 
tapez simplement : 

LPRINT CHR$(27) "B”. 

3-Lorsque vous listez un programme 
Basic, l'imprimante reçoit des codes 
ASCII. S'ils sont inférieurs à 32 ou 
supérieurs à 127, l'imprimante ne 
comprend plus ! Deux solutions sont 
alors à envisager : 

— Transférer votre programme dans 
un fichier Mac Write et lister (atten- 
tion vous ne pouvez transférer que 8 
K à la fois). 

— Utiliser le programme ci-dessous; il 
remplace tous les caractères accen- 
tués par des ”’(@” et envoie l’équiva- 
lent d’un List. 


10'Le programme à lister doit 
être préalablement sauvegardé 
sous la forme d'un fichier 
“texte”. 

20 CLS:INPUT “fichier ? ",F$: 
OPEN"i",1,F$ 

30 WHILE NOT EOF(1) 

40 LINE INPUT #1,L$ 

50 FOR B%=1 TO LEN(L$) 

60 C$=MID$(L$,B%, 1 ).CR=ASC(C$): 
IF CR<32 OR CR> 127 THEN LPRINT 
"@”; ELSE LPRINT Cf; 


ARE ER 


70 NEXT:LPRINT 
80 WEND 
90 CLOSE 


4-Nous ne nous sommes pas encore 
penchés sur ce problème, mais tente- 
rons de le faire dès que possible. 


J'ai lu dans Pom's 13 la lettre de M. 
Delacourte, selon laquelle PURPLE- 
SOFT ne tolèrerait pas de” pro- 
gramme Basic de plus de 2,5 K. Fort 
heureusement, il n'en est rien. Il suf- 
fit de charger PURPLESOFT avant le 
programme Basic. Pour éviter une li- 
mitation à 6,5 K il est nécessaire de 
charger le programme Basic au- 
dessus de la page graphique 1. 


L'utilisation sous PURPLESOFT d'un 
programme Basic (12000 octets — 
chargé en 16384) exploitant la rou- 
tine PROG4S8K (publiée dans Pom's 
5). relogée au-dessous de la page 
graphique 1, est possible grâce à la 
dérivation SYNTAX ERROR décrite 
dans le manuel de la carte Chat 
Mauve, qui permet d'employer 
conjointement les ampersands de 
PROG48K et de PURPLESOFT. 


Monsieur Bodin - La Prunerie - 
24430 Razac 


Le programme TRANS que j'ai dé- 
veloppé, écrit en assembleur Z80, 
permet la communication entre un 
Apple sous CP/M et une autre ma- 
chine sous le même système. L'utili- 
sateur est guidé pas à pas, en parti- 
culier pour les opérations de 
commutation du modem. 

La transmission binaire, 8 bits avec 
parité, se fait par blocs de 256 octets 
avec polling et cheksum. Tous les fi- 
chiers sont transmissibles en toute sé- 
curité. La vitesse de transmission est 
fixée par défaut à 1200 bauds: il est 
toutefois possible de la modifier (elle 
peut aller jusqu'à 9600 bauds). 


Plusieurs versions de TRANS sont en 
cours de réalisation. 

En première installation, TRANS est 
livré pour deux sites en relation avec 
une assistance technique au prix de 
4000 F HT: en extension, pour un 
nouveau site relié à un ensemble 
déjà équipé, il en coûtera 1000 F 
HT. 


Pour plus de renseignements n'hési- 
tez pas à me contacter. 
Léon Kuntz - 65 rue Nollet - 75017 
Paris 

El 
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Pour Apple //e et //c 


Apple programming for learning 
and teaching de Frederick H. Bell, 
Prentice Hall - 305 pages - $22.05. 


Un cinquantaine de programmes dé- 
taillés, et environ 80 petits program- 
mes exemples, pour apprendre à 
programmer. Bien fait et pédagogi- 
que. 


Handbook of Applesoft Basic for 
the Apple II and //e de Roy Earl 
Myers et David I. Schneider, Prentice 
Hall - 320 pages - $22.05. 


Consacre une ou plusieurs pages à 
chaque mot réservé du Basic Apple- 
soft. Utilisable aussi par les posses- 
seurs de //c. Bien fait, bon ouvrage 
de référence pour les anglophones. 


Voici l’Apple //c de D. Goodman, 
Hachette - 165 pages - 95 FF. Tra- 
duit de l'anglais. 


Voici le premier livre ‘en français” 
consacré exclusivement à l'Apple //c. 
Cet ouvrage s'adresse aux débutants 
et détaille l'appareil, vu de l'extérieur 
comme de l'intérieur. On a droit à 
un chapitre de comparaisons avec 
d’autres matériels : à quoi cela peut-il 
bien servir dans un ouvrage destiné 
aux possesseurs du //c ? Ensuite, un 
chapitre par application présente les 
possibilités du matériel: traitement 
de texte, calculs, gestion de fichers, 
jeux, … Clair et propre, mais pas es- 
sentiel. 


La programmation du 6502 de 
A.P. Stephenson, MicroDunod - 184 
pages - 95 FF. Traduit de l'anglais. 


Bon ouvrage d'initiation au langage 
machine du 6502. 


L'Apple animé 3D de Phil Cohen, 
Evrolles - 184 pages - 90 FF. Traduit 
de l'anglais. 

Apprend à programmer le graphique 
et fournit des listings de programmes 
de création de tables de formes, 
d'édition. Il n’y a que des program- 
mes Basic, agrémentés d'un texte ex- 
plicatif bien détaillé. 


The power of Appleworks de Ro- 
bert E. Williams, Prentice Hall - 230 
pages - $25,95. 

Compilation assez complète, quoi- 
qu'un peu primaire, des potentialités 
du logiciel. Hélas, seule une partie 
des possibilités de communication 
entre les trois applications (traitement 
de texte, gestion de fichiers, tableur) 
est expliquée, et ce de façon acces- 
soire. On devrait pouvoir faire mieux 
sur le sujet, mais pour le moment il 
n'y a rien d'autre. 


Pour le Macintosh 


Le guide Marabout du Macintosh 
de Robert Van Loo, Marabout - 200 
pages - 185 FF. 
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Pour les débutants du Macintosh, 
présentation générale du Mac et in- 
troduction à l’utilisation de MacPaint, 
MacWrite et Muitipian (version US). 
Ce livre a été rédigé avec le Macin- 
tosh. Ceci dit, travail honnête, mais 
qui apporte peu au-delà des docu- 
mentations originales : il y a déjà 
deux ou trois livres de ce genre en 
français. 


Guide de l'utilisateur Macintosh 
de Joseph Caggiano, Sybex - 180 
pages - 98 FF. Traduction. 

Mèêmes objectifs que l'ouvrage précé- 
dent, mais avec deux fois moins de 
matière (présentation plus aérée). 


Macintosh le magnifique de Merl 
K. Miller et Mary A. Myers, Editions 
du PSI - 157 pages - 95 FF. Traduit 
de l'anglais. 


Mêmes thèmes que les ouvrages pré- 
cédents, mais il s’agit beaucoup plus 
d'une présentation des possibilités 
que de l'apprentissage du Macintosh 
et de ses programmes standards. 


Multiplan pour Macintosh de Gé- 
rard Santraille et Hervé Thiriez, Edi- 
tions du PSI. 


Ouvrage complet sur le Multiplan du 
Macintosh, comportant de nombreux 
tableaux préparés relatifs à divers do- 
maines d'application. C'est le pre- 
mier ouvrage écrit sur le programme 
Multiplan en français, version 1.02 
(juilket 84). 

Une disquette d'accompagnement fa- 
cultative reprend tous les tableaux de 
l'ouvrage et propose en outre un 
programme écrit en Basic Microsoft 
pour obtenir la liste détaillée du 
contenu d'un tableau : formules, for- 
mats, noms de zones, découpages en 
fenêtres, … 


D'intérêt général 
Guide de l'Informatique Indivi- 
duelle de H. Varley et [L Graham, 


Hachette - 225 pages - 99 FF. Tra- 
duit de l'anglais. 


Cette encyclopédie couvre, à raison 
d'une à deux pages par thème, une 
grande variété de sujets liés de près 
ou de loin à la micro-informatique. 
Clair et bien présenté. Educatif. 


Encyclopédie de la micro-infor- 
matique de Peter Rodwell, Hachette 
- 206 pages - 149 FF. Traduit de 
l'anglais. 

Même principe que l'ouvrage précé- 
dent, en grand format (21 x 29,7). 
Nombreuses illustrations en couleurs. 
Parfait pour les étudiants. 


dBase II sans embüûches de G. 
Grigorieff, Eyrolles - 176 pages - 115 
FF 


La pratique de dBase II de Jean- 
Claude Guillemot, Evrolles - 208 
pages - 140 FF. 


Bibliographie 


Alexandre Duback 


La pratique de dBase II de Carl 
Townsend, Turgeon - Diffusion PSI - 
210 pages - 200 FF. Traduit de l’an- 
glais.. 


Les avis sont partagés sur ces trois 
ouvrages qui, en première analyse, 
paraissent tous sérieux. Le premier a 
l'avantage de s’articuler autour de la 
programmation d’une application 
complète (librairie). Le second pos- 
sède un sommaire plus détaillé que: 
le troisième. 


Le clavier du //c 


Au fil des jours d'utilisation du //c, 
certaines touches nécessitent une 
force de frappe” supérieure à la 
normale. Pour y remédier, voici quel- 
ques conseils. 

— Otez tous les cabochons du cla- 
vier. 

— Retirez les deux caches en plasti- 
que (attention l’un d'entre eux est 
collé en quelques points au clavier) 

— Vous découvrez alors un superbe 
clavier et, à la base de chaque tige 
blanche (support des cabochons), un 
petit ressort. 


La première solution consiste à reti- 
rer tous les ressorts, la seconde à tor- 
dre légèrement une des branches de 
chacun d'entre eux en l'éloignant de 
la tige blanche. Remontez le tout et 
votre clavier sera comme neuf ! 


Multiplan et le //c 


Si vous utilisez Multiplan en 80 co- 
lonnes sur le //c, vous risquez quel- 


ques surprises. En effet, le pro- 
gamme ne reconnaît plus 
lIMAGEWRITER et votre tableau à 
l'écran ne sera plus qu'une ligne de 
caractères ‘’w' sur papier. Pour un 
tableau de 8 colonnes standards (80 
caractères par ligne) il vous suffit de 
recharger Multiplan, configuré en 40 
colonnes, et d'imprimer. En revan- 
che, pour un tableau de 13 colonnes 
(130 caractères par ligne) il faut utili- 
ser les caractères ultra comprimés de 
lIMAGEWRITER. Tout est expliqué 
dans Pom's 9. Cependant, il est né- 
cessaire d'y apporter une modifica- 
tion. En commande SORTIE, sous- 
commande OPTIONS, il faut rempla- 
cer l'initialisation *!c par “°c (c étant 
un caractère de contrôle lié à l’impri- 
mante) car! n'est autre qu’une 
commande de recalcul manuel du ta- 
bleau en mémoire. Il ne reste plus 
qu'à modifier, dans la commande 
PAGE, le nombre de caractères par 
ligne en fonction du caractère de 
contrôle choisi. 
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DISQUETTES (sauf précision, toutes les disquettes fonctionnent sous DOS 3.3 sur Apple II + , //e ou //c) 
















































































HAÏIFA 20 nn tn temhens (ch-Pomsn5S) “His à -5500F . 4. 
HBASIC aient (cf. Pom's n° 8)... à 150,00F 
MISE TT ne sn (cf. Pom's n° 10) à  80,00F 
DISK-MANAGER ........................... (cf. Pom's n° 11) à 45000F 
DBSTAG (CP/M) .….........................… (ct-Pom's nl) “sus. à 450,00F 
JEUX À... (cf. Pom's n° 12) à 80,00F 
JEUX B 2... és (cf. Pom's n° 12) à :S0/00F- 3 
BASICIUM ...................................... (cf. Pom's n° 13) à? ASOOUEF: ass 
DEMO CX SYSTEME 64K .…....... (cf. Pom's n° 13) à _55,00F 
DEMO JANE 64K ......................... (cf Ponr'sn 13) sis à © OHOUEF, ass 
PE neo manette (cf. Pom's n° 15) à." 15000 Gus 
MACINTOSH .................................. (cf. Pom's n°15) à 150,00F 
PASCAE:: Les (cf 'Pomsn°15). su. à  80.00F 
RECUEILS 
N° 1, recueil des revues 134 à 130,00F 
Disquettes d'accompagnement des numéros 1 à 4 à: ISOUOE -- aise 
N° 2, recueil des revues 5 à8 à H3000Ë "2. 
Disquettes d'accompagnement des numéros 5 à 8 à 190,00F 
ANCIENS NUMEROS 
REVUES _] 4 |] 7 BE ue à: :ASO0E Lau, 
REVUES 9 C]10 11 
12 [1 13 14 15: LJA6.: Oséaines à 40,00F 
DISQUETTES ! | 1 2 3 [] 4 [] 5 
6 [1] 7 [] 8 [] 9 []10 
]11 []12 13 ILE TIS +22 à. GSHOO0E: Lou: 
[116 
ABONNEMENTS 
POUR 6 NUMEROS à partir du n°... 
ABONNEMENT SANS DISQUETTES à 200,00F 
ABONNEMENT AVEC DISQUETTES (Apple II + , //e, //c) à 480,00F 
ÉOTAL.TEIE. iii. 
Supplément expédition 
par avion à l'étranger 
MONTANT 
DU REGLEMENT 


Ces tarifs comprennent l'envoi postal en France métropolitaine. CEE et Suisse 
Supplément avion hors CEE : 10 F par numéro et/ou disquette 





Envoyez ce bon et votre règlement à : (Abonnés : n'oubliez pas de joindre l'étiquette-adresse). 


Editions MEV - 64-70, rue des Chantiers - 78000 VERSAILLES 


Nom : 


Adresse 


Pom's n° 16 











PLUS LE DICTIONNAIRE DES BASIC. 





M 2946 - 65 HS —- 30 F 


CX MacBase 








\ PARTENAIRE D'UN NOUVEAU MONDE 


— “Ou suis-je ?” demanda Macintosh. 


— “Dans un nouveau monde” répondit CX Mac- 
Base, “Nos esprits viennent de fusionner, rien ne 


sera plus comme avant” 


Aujourd'hui, la réalité dépasse la fiction. Cela 
ne pouvait arriver que sur Macintosh avec CX 
MacBase, le logiciel qui stimule, accélère et pro- 
longe la pensée. 


Avec CX MacBase vous saurez tout de suite fi- 
cher, texter, tabler, graphiquer, mixer à volonté. 


& Apple ( 


omputer Inc est le | 


Vous avez champ libre : tout apparaît sur l'écran 
d'un seul coup de souris “magique” 

Quel que soit votre domaine d'activité, sortez 
du rang ! Vous n'êtes plus fait pour marcher au 
pas, en ligne et en colonne forcées. Voyagez libre- 
ment, au gré de votre pensée, de fichier en fi- 
chier, de texte en calcul, de tableau en graphe. 
Vous étonnerez votre entourage par des lettres 
très personnalisées, des rapports enrichis de ta- 
bleaux, d'images ou de graphiques en trois di- 
mensions.. 


Tour M Montparnasse .75755 Paris Cedex 15. Telephone 138.988 





CX MacBase, classe, calcule, gère, range, 
imprime, “coupe et colle” un nouveau monde. 

CX MacBase, c'est presque 
de la sorcellerie ! Pourtant ce 
n'est pas sorcier !. 





Controle X 


Les logiciels à tout imaginer 





encie de la Marque Macintosh. CX MacBase est une marque deposée de Controle X 





onstatés à CR. Paris et susceptibles d'être modifiés sons préavis 


ix sont généralement. ce 


novationg 


